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INTRODUCTION 


Volume  II  of  this  report  is  a user's  manual  for  the  computer  programs 
based  on  the  approximate  and  "exact"  nonlinear  axial-mode  combustion  instabil- 
ity analyses  developed  in  Volume  1.  Ihree  approximate  programs  were  developed 
as  follows:  (1)  nonlinear  analysis  of  solid  rocket  motors  by  the  Galerkin  meth- 
od, (2)  nonlinear  analysis  of  solid  rocket  motors  by  the  Method  of  Averaging 
(MQA),  and  (3)  nonlinear  analysis  of  T-bumers  (Galerkin  method).  These  programs 
numerically  solve  the  systems  of  nonlinear  ordinary  differential  equations  which 
arise  on  the  application  of  the  Galerkin  method  or  MQA  to  the  governing  one- 
dimensional, two-phase  partial  differential  equations.  The  details  of  the  approx- 
imate and  "exact"  instability  models  upon  which  these  programs  are  based  are 
available  in  Volume  I of  this  report. 

This  volume  contains  a description  of  all  the  main  programs  and  subrou- 
tines used  in  the  instability  programs.  Descriptions  of  the  Inputs  needed  to 
operate  the  programs  and  the  outputs  generated  are  given.  Furthermore  a sample 
case  is  presented  to  illustrate  the  text  and  to  facilitate  checkout  of  the 
program.  The  entire  program  has  been  written  in  the  FORTRAN  IV  programning  lan- 
guage. While  the  programs  have  been  checked  out  on  a CDC  CYBER  70/74-28  system 
operating  under  NOS  1.1  at  the  Georgia  Institute  of  Technology,  the  structure 
of  the  programs  has  been  kept  simple  enough  to  be  run  on  any  modern  digital 
computer.  The  program  includes  an  option  to  obtain  plots  using  a CALCGMP 
plotter,  but  the  absence  of  a plotting  capability  in  a computing  system  does 
not  affect  the  functioning  of  the  rest  of  the  program. 
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2.  GENERAL  STRUCTURE  OF  APPROXIMATE  PROGRAMS 

ilie  computations  for  the  solid  rocket  motor  and  the  T-burner  are  per- 
formed by  two  separate  sets  of  programs.  Programs  SOLIDl  and  S0L1D2  compute 
instability  in  a solid  rocket  motor  whereas  programs  TBl  and  TB2  refer  to  the 
T-burner,  Both  these  sets  of  programs  use  the  Galerkin  method  which  Is  described 
in  Volume  I.  Programs  SOLIDl  and  TBl  compute  the  coefficients  which  appear  in 
the  differential  equations  that  govern  the  mode -amplitude  functions  for  a solid 
rocket  motor  and  a T-burner  respectively.  The  coefficients  generated  by  these 
programs  must  be  supplied  as  input  to  S0LID2  and  TB2.  Using  these  coefficients, 
S0L1D2  and  TB2  integrate  the  system  of  ordinary  differential  equations  for  the 
mode  amplitudes  in  a solid  rocket  motor  and  a T-bumer  respectively.  An  option 
is  provided  for  SOLIDl  and  TBl  to  write  the  generated  coefficients  onto  a disk 
from  which  these  coefficients  can  be  conveniently  recovered  by  S0LID2  and  TB2, 

The  advantage  of  dividing  the  computations  into  two  separate  programs  will  be- 
come obvious  in  the  program  description  which  follows.  With  this  segmentation  of 
tasks,  coefficients  can  be  generated  just  once  using  SOLIDl (or  TBl)  and  can  then 
be  repeatedly  run  with  different  combustion  responses  and  different  initial  con- 
ditions as  desired  using  S0LID2  (or  TB2),  thereby  considerably  reducing  the  com- 
puter time. 

The  above  two  sets  of  programs  utilize  the  Galerkin  method  without  appli- 
cation of  the  method  of  averaging  to  the  resulting  mode-amplitude  equations. 
Programs  MAI  and  MA2  obtain  numerical  solutions  of  the  equations  derived  by 
application  of  the  method  of  averaging  after  using  the  Galerkin  method  as  de- 
scribed in  Volume  I to  calculate  the  stability  behavior  of  solid  rocket  motors. 
Program  MAI  corresponds  to  programs  SOLIDl  and  TBl  since  it  computes  the  co- 
efficients appearing  in  the  governing  equations.  Program  MA2  performs  the  numeri- 
cal integration  of  the  system  of  differential  equations  like  S0LID2  and  TB2. 

Section  3 gives  a description  of  the  programs  used  to  investigate  the 
stability  of  solid  rocket  motors.  The  various  subroutines,  inputs,  and  outputs 
are  described,  and  a sample  case  is  presented  for  each  program.  Section  4 pre- 
sents a similar  description  for  the  T-burner  programs.  Equations  and  appendices 
referenced  in  these  sections  refer  to  equations  and  appendices  in  Volume  I, 
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3.  PROGRAMS  FOR  SOLID  ROCKET  MOTORS 

As  pointed  out  eatller,  the  motor  stability  computations  are  performed 
by  SOLIDl  and  SOL1D2  or  MAI  and  MA2.  These  programs  are  described  in  the  follow- 
ing sections. 

3.1  PROGRAM  SOLIDl 

Program  SOLIDl  calculates  the  coefficients  of  both  the  linear  and  non- 
linear terms  which  appear  in  Equations  (22)  and  (23),  The  coefficients  to  be 
calculated  are  functions  of  various  integrals  of  complex  hyperbolic  functions 
as  defined  in  Appendix  C. 

Program  Structure.  The  program  can  be  divided  functionally  into  five 
major  sections:  (1)  input,  (2)  calculation  of  the  complex  linear  coefficients, 
(3)  calculation  of  the  complex  nonlinear  coefficients,  (4)  obtaining  coeffi- 
cients of  the  equivalent  uncoupled  real  system,  and  (5)  output. 

The  inputs  to  the  program  include  the  parameters  describing  the  motor 
geometry  and  the  nozzle  boundary  condition,  the  modes  included  in  the  approx- 
imat  ries  expansion,  particle  characteristics  and  various  control  numbers. 

A1  inputs  are  supplied  to  the  main  program.  The  next  subsection  gives 

on  of  the  necessary  inputs. 

In  the  second  section  of  the  program,  the  axial  acoustic  eigenvalues 
are  calculated  by  means  of  subroutines  EIGVAL  and  FCNS,  and  the  integrals  of 
the  product  of  two  axial  eigenfunctions  are  computed  by  means  of  subroutines 
AXIALl  and  UBAR.  The  complex  linear  coefficients  are  then  calculated  according 
to  Equations  (C-  1 ) through  (C-  7 ) and  normalized  by  dividing  by  the  coeffi- 
cient of  the  highest  derivative  (i.e.  C^(j,j)  in  Equations  (22)). 

In  the  third  section  the  integrals  of  products  of  three  axial  eigen- 
functions are  computed  using  the  subroutine  AXIAL2.  The  complex  nonlinear 
coefficients  are  obtained  from  Equations  (C- 8 ) through  (C-11)  and  are  then 
normalized. 

In  the  fourth  section  Che  normalized  complex  coefficients  are  used  to 
obtain  coefficients  for  the  equivalent  system  of  real  differential  equations 
obtained  by  separating  Che  real  and  imaginary  parts  of  the  complex  equations. 
Since  the  axial  eigenfunctions  are  not  orthogonal, the  resulting  system  of 
equations  may  be  coupled  in  Che  highest  derivative  terms.  Therefore  a matrix 
Inversion  procedure  is  used  Co  obtain  Che  coefficients  of  an  equivalent  sys- 
tem which  is  not  coupled  in  the  highest  derivatives.  The  subroutine  GJR 
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performs  the  matrix  Inversion. 

In  the  last  section,  the  computed  values  of  the  coefficients  are  either 
printed  out  or  stored  on  disk  or  both  as  desired. 

Description  of  Input.  The  input  data  consists  of  the  steady-state  Mach 
numbers,  the  type  of  nozzle  used,  the  various  particle  and  gas  constants,  in- 
formation about  the  modes  used  in  the  series  expansion,  and  various  control 
numbers.  The  input  must  be  supplied  to  the  program  by  means  of  punched  cards. 
All  real  numbers  must  be  punched  with  a decimal  point  in  FIO.O  format,  while 
all  integers  must  be  punched  in  15  format  in  the  rightmost  locations  of  the 
allocated  field  of  5 columns.  For  instance,  in  the  second  card,  described  be- 
low, the  format  is  (2F10,0,I5), 

A list  of  necessary  input  data  is  described  below.  The  units  of  all  the 
dimensional  data  are  also  indicated  in  this  description.  As  can  be  observed 
from  this  description,  these  data  must  be  specified  in  metric  units.  A sample 
input  is  also  given  at  the  end  of  this  section. 

The  first  card  gives  the  title  of  the  case,  in  columns  1 through  70. 

Second  card:  GAM,  UE,  N0ZZLE 

GAM  is  the  specific  heat  ratio. 

UE  is  the  steady  state  Mach  number  at  the  nozzle  entrance. 

N0ZZLE  specifies  the  type  of  nozzle  used; 

N0ZZLE  = 0 quasi-steady. 

N0ZZI£  s 1 conventional  nozzle. 

Third  card:  NJMAX,  N0NLIN,  NEGL,  N0UT,  NPRTKL 

(UMAX  is  the  number  of  mode -amplitude  functions  in  the  assumed  series 
solution. 

The  coefficients  computed  are  determined  by  N0NLIN  as  follows: 

N0NL1N  “ 0 linear  coefficients  only, 

N0NL1N  = 1 both  linear  and  nonlinear  coefficients. 

Coefficients  to  be  neglected  are  determined  by  NEGL  as  follows: 

NEGL  > 0 terms  smaller  than  0.00001  are  neglected. 

NEGL  - 1 linear  terms  smaller  than  SMI  and  nonlinear  terms 
smaller  than  SM2  are  neglected. 

The  output  is  determined  by  N0UT  as  follows: 

N0UT  - 0 printed  output  only, 

N0UT  ■ 1 v’rite  into  a file  and  print  output. 
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N0UT  * 2 write  into  a file  only, 

NPRTK1,  determines  whether  the  particles  are  present: 

NPRTKL  = 0 particles  not  present. 

NPRTKL  = 1 particles  present, 

’ Next  card  (necessary  only  if  NPRTKL  = 1):  DIA,  RH0M,  SP,  TEMP,  FREQ,  CM 

DLA  is  the  particle  diameter,  in  microns. 

RH0M  is  the  density  of  che  particle  material,  in  kg/m^. 

SP  is  the  ratio  of  the  specific  heats  of  particle  material  and  gas, 

TEMP  is  the  chamber  temperature,  in  degrees  Kelvin. 

FREQ  is  the  frequency  of  oscillation  in  pure  gas,  in  Hertz. 

CM  is  the  particle  loading. 

Next  card  (necessary  only  if  NEGL  =1):  SMI,  SM2 
SMI  and  ai2  are  as  defined  above. 

Next  NJMAX  cards  (necessary  only  if  N0Z2LE  = 1):  J,  AMPL(J),  PHASE(J) 

AMPL(J)  is  the  magnitude  of  the  nozzle  admittance  for  the  mode, 
PHASE(J)  is  the  phase  of  the  nozzle  admittance  for  the  mode. 

Next  NJMAX  cards:  J,  L(J),  NAME(J) 

Each  mode -amplitude  is  assigned  an  integer  J. 

The  mode  is  specified  by  the  index  L(J). 

L(J)  is  the  axial  mode  number  and  must  not  exceed  NJMAX. 

' NAME(J)  is  a four-character  name  for  the  J mode. 

Description  of  the  Subroutines.  The  different  tasks  performed  by  the 
program  SOLIDI  were  outlined  earlier  in  this  section.  This  subsection  explains 
the  different  subroutines  which  are  Involved  in  performing  these  tasks. 

SUBRgUnNE  EIGVAL  (L.SMN.  GAMMA.  ZE . YAMPL.  YPHASE.  RESULT).  This  sub- 
routine, called  frcRi  the  main  program,  computes  the  complex  axial  acoustic 
eigenvalues  for  a cylindrical  chamber  with  a hard  wall  at  one  end  and  a nozzle 
at  the  other  end.  The  amplitude  and  phase  of  the  nozzle  admittance  is  speci- 
fied in  the  argument  list  by  the  variables  YAMPL  and  YPHASE  respectively.  L 
specifies  the  axial  mode  number  for  which  the  acoustic  eigenvalue  is  required. 
SMN  indicates  the  transverse  frequency  and  is  set  zero  in  the  current  program 
* since  only  axial  modes  are  considered.  ZE  is  the  nondimens ional  length  of  the 

chamber  and  equals  1.  The  compttted  value  of  the  complex  axial  acoustic  eigen- 
« value  is  obtained  from  this  subroutine  through  the  argument  variable,  RESULT. 
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Tilts  subroutine  computes  the  real  and  Imaginary  parts  of  the  eigenvalue 
(e  and  1]  respectively)  by  solving  a pair  of  simultaneous  transcendental  equa- 
tions, f(x,y)=0  and  g(x,y)=0,  which  are  obtained  from  the  wave  equation  for  the 
case  of  no  mean  flow,  combustion  or  particles.  The  roots  s and  Tj  of  this  system 
of  transcendental  equations  are  calculated  by  a method  of  successive  approxima- 
tions using  Newton's  method. 


SUBRgUTINE  FCNS(X.Y.ZE.F.G.FX.FY.GX.GY).  This  subroutine  is  called  by 
the  subroutine  EIGVAL  at  every  iteration  in  the  successive  approximation  scheme. 
It  computes  the  functions  F and  G,  and  their  partial  derivatives  FX,  FY,  GX,  and 
GY  with  respect  to  X and  Y.  Here  F and  G are  the  functions  whose  roots  are  the 
desired  axial  eigenvalues.  The  value  of  these  functions  and  G and  their  par- 
tial derivatives  are  needed  in  the  recursion  formulas 
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where  and  are  the  (i+1)  approximations  to  the  real  and  imaginary 

parts  of  the  eigenvalue. 

SUBR0UTINE  AXIALl  (N0PT.NP.NJ ,UE ,ZE .RESULT) . This  subroutine  calculates 
the  different  integrals  which  appear  in  the  expressions  for  the  coefficients  of 
the  linear  terms  in  Equations  (22)  and  (23)  according  to  the  value  of  N0PT.  The 
computed  value  of  the  desired  integral  is  obtained  as  the  argument  variable 
RESULT.  The  different  integrals  that  can  be  computed  from  this  subroutine  are: 

ZE 

N0PT  - 1 RESULT  = f X X*  dx 

J p j 


N0PT  = 2 


RESULT 
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dx 


dx 
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N0PT  = 3 


RESULT  = 


N0PT  = 4 


ZE 


J 


du  V 
dx  P 


X*  dx 


ZE 

dX  * 

RESULT  = J u ^ dx 
o 


The  subscripts  p(=NP)  and  j(=NJ)  denote  the  axial  mode  numbers,  and  X^ 
and  Xj  are  the  axial  eigenfunctions  for  the  p*"^  and  mode.  The  asterisk 
denotes  the  complex  conjugate  of  the  quantity.  The  eigenvalues,  which  are  re- 
quired to  compute  the  eigenfunctions,  are  obtained  from  the  main  program 
through  blank  common.  The  integrals  for  N0PT = 1 and  N0PT « 2 are  evaluated 
analytically,  but  the  last  two  integrals,  which  involve  the  mean  flow  velocity 
and  its  derivative,  are  evaluated  numerically  using  Simpson's  Rule.  For  these 
cases  the  value  of  the  mean  flow  velocity  and  its  derivative  are  obtained  by 
calling  the  subroutine  UBAR. 


SUBRiaUTINE  AXIAL2  (N0PT.  NC0NJ.  NP.  NQ . NJ . ZE . RESULT).  This  subroutine 
computes  the  integrals  which  appear  in  expressions  for  the  coefficients  of  the 
nonlinear  terms  in  Equations  (22).  The  combination  of  integers  N0PT  and  NC0NJ 
determines  the  Integral  that  is  computed  and  is  available  as  RESULT.  The  three 
basic  forms  of  the  integral  are  specified  by  N0PT  as  follows: 

ZE 

N0PT  = 1 RESULT  = f X X X*  dx 

J P q j 

o 


N0PT  = 2 


N0PT  = 3 


RESULT 


dx 


RESULT 


— 5-P  X X,  dx 

J dx^  ^ J 


When  NC0NJ  “1,  these  basic  forms  are  calculated.  For  NC0NJ  = 2 the  second  func- 
tion in  the  above  integrands  is  replaced  by  its  complex  conjugate,  while  for 
NC0NJ  - 3 the  first  function  in  the  above  integrands  is  replaced  by  its  complex 
conjugate.  For  NC0NJ  » 4,  both  the  first  and  the  second  functions  in  these  inte- 
grands are  replaced  by  their  complex  conjugates.  In  these  expressions  X^,  X^  and 
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Xj  are  the  axial  acoustic  eigenfunctions  for  the  p , q and  j axial  inodes 
(p(=NP),  q(»NQ)  and  j(=NJ)  are  the  axial  mode  numbers).  The  subroutine  obtains 
the  value  of  the  acoustic  eigenvalues  from  the  main  program  through  blank  com- 
mon space. 

All  the  above  Integrals  are  evaluated  in  this  subroutine  analytically. 

SUBROUTINE  UBAR  (NgPT,  UE . ZE . Z.  RESULT).  This  subroutine  is  called  by 
subroutine  AXIALI  and  it  calculates  the  steady-state  velocity  and  its  derivative 
at  the  axial  location  Z in  a motor  whose  exit  Mach  number  is  UE.  For  NOPT = 1 the 
velocity  is  calculated,  while  for  N0PT  = 2 the  derivative  of  the  velocity  is  cal- 
culated. In  the  present  program,  a linear  steady-state  vclof'<ty  distribution  is 
assumed,  which  varies  from  zero  at  Z = 0 to  UE  at  Z = ZE.  vniile  this  computation 
could  have  been  easily  carried  out  in  the  calling  progreim  itself,  a separate  si;b- 
routine  is  provided  for  the  steady-state  velocity  distribution  so  that  more  real- 
istic velocity  distributions  can  be  conveniently  incorporated  in  the  motor  pro- 
gram if  desired. 

SUBROUTINE  GJR(A.  NC . NR.  N.  MC.  JC.  V).  This  is  a matrix  inversion  rou- 
tine. Here  NC  and  NR  are  dimensions  of  the  matrix  A to  be  inverted,  but  only  the 
first  N X N elements  of  A are  inverted,  and  the  inverted  matrix  replaces  the 
original  matrix  under  the  name  A.  V(l)  should  be  set  equal  to  1 in  the  calling 
program  to  achieve  the  matrix  inversion.  If  there  is  trouble  (singularity)  in 
the  matrix  inversion,  a message  is  printed  out.  This  subroutine  is  taken  from 
the  MATHPACK  library  for  the  UNIVAC  1100  series  computers  with  suitable  modi- 
fications to  run  on  CDC  6000  series  computers. 

C^PLEX  FUNCTION  CCQSH(X).  This  function  calculates  the  hyperbolic  cosine 
(i.e.,  cosh)  of  a complex  number  X. 

CftiPLEX  FUNCTION  CSINH(X).  This  function  calculates  the  hyperbolic  sine 
(i.e.,  sinh)  of  a complex  number  X. 

Both  CCOSH(X)  and  CSINH(X)  can  be  omitted  in  computing  facilities  where 
complex  arguments  are  acceptable  in  the  hyperbolic  functions  provided  in  their 
library. 

Description  of  Output.  The  coefficients  calculated  by  program  SOLIDl  are 
printed  or  stored  on  disk  according  to  the  value  of  the  control  numbers  NOUT  as 
indicated  in  the  section  on  inputs.  These  two  output  modes  will  now  be  discussed. 

Printed  output  is  the  only  output  obtained  when  NOUT  > 0,  which  is  used 
for  checkout  purposes  only.  Printed  output  can  be  obtained  in  conjunction  with 
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disk  storage  mode  by  giving  the  value  1 to  N0UT. 

The  first  page  of  the  printed  output  gives  a restatement  of  the  input 
parameters.  The  p>age  is  headed  by  the  title  of  the  case,  and  it  gives  the  values 
of  all  the  particle  and  gas  constants.  This  is  followed  by  information  about  the 
modes  included  in  the  series  expansion,  their  eigenvalues  and  nozzle  admittance 
values.  In  the  following  pages,  the  decoupled  linear  and  nonlinear  coefficients 
are  printed  out  in  the  matrix  format. 

A sample  printed  output  for  the  five  term  series  used  In  the  sample  case 
Is  given  In  the  next  subsection. 

Disk  storage  Is  the  most  convenient  means  of  storing  the  output  of  Pro- 
gram SOLIDl.  This  mode  of  output  Is  obtained  by  setting  N0UT  = 1 or  NflUT  = 2, 

The  output  Is  written  in  a format  which  corresponds  to  the  input  format  for 
S0LID2  so  that  the  two  programs  can  be  run  In  tandem  with  ease.  The  disk  into 
which  the  output  is  written  is  given  the  I/O  device  number  9,  The  control 
statement  needed  to  request  this  number  for  I/O  depends  on  the  computer  facil- 
ities used. 

Sample  Case.  A sample  case  is  presented  in  this  section  to  facilitate 
checkout  and  to  illustrate  the  I/O  procedure.  This  case  refers  to  a motor  with 
exit  Mach  number  M^=  0.078.  The  average  diameter  of  the  particles  is  2.5  microns 
and  particle  loading  is  0,1.  The  pure  gas  frequency  of  oscillation  is  1071  Hertz, 
and  the  mean  temperature  in  the  chamber  is  3525°K,  A quasi-steady  nozzle  is  em- 
ployed and  the  specific  heat  ratio  is  1.23.  It  is  desired  to  consider  the  first 
five  longitudinal  modes  in  the  series  expansion  for  the  velocity  potential.  A 
printed  output  as  well  as  disk  storage  of  the  output  is  required  so  that  they 
may  be  used  for  checking  out  Program  S0LID2  later. 

An  input  deck  needed  for  fulfilling  the  above  conditions  is  illustrated 
in  Table  1.  The  printed  output  generated  by  the  program  with  this  output  deck 
is  shown  in  the  following  pages. 
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FORTRAN  Source  Code 


PROGRi«  SOLI  Dl(  INPUT*  OUTPUT.  DA  TA^ 

1 TAPE5»INPUT#  TAPE6-0UTPUT.  TAPE9-DATA) 


«***«««**«4r«**4t«  PROGRAM  SOLIDI  *•••♦*♦**♦*•***♦•**•••*♦♦***♦***♦ 


THIS  PROGRAM  COMPUTES  THE  COEFFICIENTS  WHICH  APPEAR 
IN  THE  DIFFERENTIAL  EQUATIONS  WHICH  GOVERN  THE  MODE- AM  PL  I TUDE 
FUNCTIONS.  THESE  COEFFICIENTS  CAN  BE  WRITTEN  INTO  A FILE 
FOB  INPUT  TO  PROGRAM  S0LID2. 

THE  FOLLOWING  INPUTS  ARE  REQUIRED! 

THE  FIRST  CARD  GIVES  THE  TITLE  OF  THE  CASE. 

SECOND  CARD!  GAM.  UE.  NOZZLE 

GAM  IS  THE  SPECIFIC  HEAT  RATIO. 

UE  IS  THE  STEADY  STATE  MACH  NUMBER  AT  THE  NOZZLE  ENTRANCE. 
NOZZLE  SPECIFIES  THE  TYPE  OF  NOZZLE  USED! 

NOZZLE  B 0 QUASI -STEADY 

NOZZLE  - I CONVENTIONAL  NOZZLE 

THIRD  CARDS  NJMAX.  NONLIN.  NEGL.  NOUT.  NPRTKL 

NJMAX  IS  THE  NUMBER  OF  MODE-AMPLITUDE  FUNCTIONS  IN  THE  ASSU1ED 
SERIES  SOLUTION - 

THE  COEFFICIENTS  COMPUTED  ARE  DETERMINED  BY  NONLIN  AS  FOLLOWSi 
NONLIN  ■ 0 LINEAR  COEFFICIENTS  ONLY 
NONLIN  « I BOTH  LINEAR  AND  NONLINEAR  COEFFICIENTS. 
COEFFICIENTS  TO  BE  NEGLECTED  ARE  DETERMINED  BY  NEGL 
AS  FOLi^OWSt 

NEGL  > 0 TERMS  SMALLER  THAN  0.00001  AKE  NEGLECTED. 

NEGL  - 1 LINEAR  TERMS  SMALLER  THAN  SMI  AND  NONLINEAR 
TERMS  SMALLER  THAN  SMS  ABE  NEGLECTED. 

THE  OUTPUT  IS  DETERMINED  BY  NOUT  AS  FOLLOWSi 
NOUT  - 0 PRINTED  OUTPUT  ONLY 
NOUT  ■ 1 WRITE  INTO  A FILE  AND  PRINT  OUTPUT. 

NOUT  > 2 WHITE  INTO  A FILE  ONLY. 

NPRTKL  DETERMINES  WHETHER  THE  PARTICLES  ARE  PRESENTS 
NPRTKL  - 0 PARTICLES  NOT  PRESENT. 

NPRTKL  - 1 PARTICLES  PRESENT. 

NEXT  CARD  ( ONLY  IF  NPRTKL- 1)1  DI  A.  RHOM.  SP.  TEMP.  FREQ.  CM 
DIA  IS  THE  PARTICLE  DIAMETER.  IN  MICRONS* 

RHOM  IS  THE  DENSITY  OF  THE  PARTICLE  MATERIAL.  IN  KG/M**3. 

SP  IS  THE  RATIO  OF  THE  SPECIFIC  HEATS  OF  PARTICLE  MATERIAL 
AND  GAS. 

TEMP  IS  THE  CHAMBER  TEMPERATURE.  IN  DEGREES  KELVIN. 

FREQ  IS  THE  FREQUENCY  OF  OSCILLATION  IN  PURE  GAS.  IN  HERTZ. 

CM  IS  THE  PARTICLE  LOADING* 
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NEXT  CAHD  (NECKSSAHY  ONLY  Ik  NEOL  ■ |)l 

SMI  AND  SM»  AHK  AS  DEFINED  ABODE* 

NEXT  NJMAX  CARDS  ( ONLY  IF  NOZZLE  - 1)1  J#  AMPL(J)«  PHASE! J> 
AMPL(J)  IS  THE  MAGNITUDE  OF  THE  NOZZLE  AEMI  TTANCE 
FOR  THE  J TH  MODE. 

PHASE!  J)  IS  THE  PHASE  OF  THE  NOZZLE  ADMITTANCE 
FOR  THE  J TH  MODE. 

NEXT  NJMAX  CARDSl  J#  L!J),  NM4E!J) 

EACH  MODE-AMPLI  TUDE  IS  ASSIGNED  AN  INTEGER  J. 

THE  MODE  IS  SPECIFIED  BY  THE  INDEX  L!J). 

L(J)  IS  THE  AXIAL  MODE  NIMBER  AND  MUST  NOT  EXCEED  NJMAX. 
NAME!J)  ISA  FOUR*  CHARACTER  NAME  FOR  THE  J TH  MODE* 

****4>****«***4>*«****4>4t4i**«4i**4i  ««**««*  **********************  **«**«* 


DIMENSION 

I 


COMMON 


L!6)*  NAME!6)*  TITLE!?),  AMPL!6>,  FHASE!«), 

V!B),  C! 3, 12, 2A)#CI! 12, 12),JC! 12), 

E!  12,  12,  2),  D!  12,  12,  12), 

KMAX!6),  TSR!2,  12),  T50! 12), TS!  3, 24), 

CIPAR!  12,  12),  CPAR!2,  12,  24),  TSPAR!2,  12),  KMAXPR!  2) 
CRSLT,  Cl,  ZEJ,  ZEPI,  ZEP2,  AX!  5),  AXINT!4,4), 
DCDEF,  B!6),  BC!6>, 

YN0Z!6),  CC!5,  6,  12),CN0RM!  12), 

CD1!6,6,6>,  CD2!6,6,6), 

CD3!6,6,6),  CD4!6,6,6), 

CCPARC  3,  6,  12),  CCOSH,  CSINH 


DATA  INPUT. 

MAXMD  > 6 
MAXMD2  •>  12 
MAXMD4  ■ 24 
PI  ■ 3.  1415926536 
SMI  - 0.00001 
SM2  - 0.00001 
Cl  ■ !0. 0,1.0) 


INPUT  PARAMETERS. 

4 READ  ! 5,  5000)  TITLE 
IF  !E0FC5))  600,  I 
I CONTINUE 

READ  ! 5*  5001)  GAM,  UE,  NOZZLE 

READ  ! 5, 5004)  NJMAX,  NONLIN,  NEGL,  NOUT,  NPRTKL 

IF  ! NPRTKL  *E0.  1)  READ  ! 5,5006)  D1  A,  RHOM,  SPj  T31P,  FREQ,  CM 

GAMMA  ■ GAM  * !1.0  ♦ SP*CM>  / Cl.O  ->  GAM*SP*CM 

IF  !NEGL  *E0.  i)  READ  !5,  53C5)  SMI,  iM2 

IF  !NOZZLE  *EQ.  1)  GO  TO  5 
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C COMPUTE  ADMITTANCE  FOR  QUASI -STEADY  NOZZLE* 

Y ■ (GAMMA  - 1*0>  * UE/(2*0  ♦ GAMMA) 

DO  3 J - 1«  NJMAX 
AMPL(J)  «=  Y 
PHASE(J)  « 0*0 
3 CONTINUE 
GO  TO  7 

5 DO  6 I 1«  NJMAX 
READ  <5«5003)  J*  AMPL(J)*  PHASE(J) 

6 CONTINUE 

7 DO  10  I - 1«  NJMAX 
READ  (S*SOOS)  J*  L(J)«  NAME(J) 

10  CONTINUE 

DO  IS  J - 1*  NJMAX 
THETA  - PHASE(J)  * PI/ 180*0 
YR  - AMPL(J)  • COS(  THETA) 

YI  • AMPL(J)  ♦ SINC  THETA) 

YNOZ(J)  ■ CMPLX(YR«YI) 

IS  CONTINUE 

NJMAX8  « NJMAX 

IF  (NPRTKL  *EQ*  1)  NJMAX2  • 2 * NJMAX 
ZE  - 1*0 
ZCOMB  B 1*0 
CAX  « GAMMA  ♦ 1*0 

RHOP  » 0*0 

IF  (NPRTKL  *EQ*  0)  GO  TO  lA 
Vise  - 8*83A  • 0*00001  * ( TEMP/348  5* )**0* 66 

PARTKL  - (9*0  * Vise)  / (RHOM  ♦ FREQ  • Dl  A * DI A * 10***(-I2)) 
UPBYU  • S*0  / (1*0  ♦ SQRT(1*0  ♦ 8 *0*UE/ PARTKL ) > 

RHOP  ■ CM/ UPBYU 
14  CONTINUE 

•’************0*******m*m********0**0*it**i,0i^t,*********m0**00**00^ni^ 

CALCULATE  AXIAL  ACOUSTIC  EIGENVALUES* 


COMPUTE  EIGENVALUES* 

DO  40  J * I#  NJMAX 
LL  • L(J) 

SMN  • 0*0 
YAMPL  ■ AMPL(J) 

YPHASE  « PHASE(J) 

CALL  EIGVAL(LL«  SMN#GAHMA«ZE«  YAMPL*  YPHASE«  CRSLT) 

B(J)  - CRSLT 

BC(J)  • CONJG( CRSLT) 

40  CONTINUE 
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CALCULATE  LINEAR  COEFFICIENTS. 

DO  100  NJ  - 1«  NJMAX 
00  100  NP  « 1«  NJMAX2 

ZERO  COEFFICIENT  ARRAYS- 
DO  105  KC  - 1«  5 
CC(KC«NJ«NP)  - (0.0«0.0> 

105  CONTINUE 
NPM  ■ NP 
NJM  > NU 

IF  <NP  .GT.  NJMAX)  NPM  • NP  - NJMAX 

CALCULATE  AXIAL  INTEGRALS. 

127  DO  130  NOPT  • 1*  4 

CALL  AX1ALI(N0PT*NPM«NJM«  UE<ZE«  CRSLT) 

AX(NOPT)  - CRSLT 
130  CONTINUE 

EVALUATE  FUNCTIONS  AT  NOZZLE  END. 

ZEJ  - CCOSHCCI  * BC(NJM)  * ZE) 

ZEPl  - CCOSHICI  * B(NPM)  * ZE> 

ZEP2  n Cl  * B(NPM)  * CSINH(C1*B(NPM)*ZE> 

IF  (NP  .GT.  NJMAX)  GO  TO  704 

COEFFICIENT  OF  THE  SECOND  DERIVATIVE  OF  A(P). 

CC( 1«NJ«NP)  - AX( 1 ) 

COEFFICIENT  OF  A(P)  . 

CC(2«NJ«NP)  - • AX(2)  * ZEP24>ZEJ 

COEFFICIENT  OF  THE  FIRST  DERIVATIVE  OF  A(P). 
CC(3«NJ*NP)  (CAX*AX(3>  * ( 2. 0.  0. 0)«AX(  4) 

I * GAMMA^YNOZCNPXiZEPlfZEJ) 

CC(4*NJ«NP)  - RHOP  « AX(1> 

CC(5*NJ*NP)  ■ ' GAMMA  * AX(  3) 

GO  TO  100 

704  CC(3<NJ*NP)  ■ - (GAMMA  - 1.0)  * RHOP  ♦ UPBYU  • AX(4) 
CC(4«NJ«NP)  - - RHOP  * AX(1) 

too  CONTINUE 

NORMALIZE  LINEAR  COEFFICIENTS. 

00  140  NJ  - It  NJMAX 
CNOFn(NJ)  - CC()*NJ«NJ) 

00  140  NP  > It  NJMAX2 
00  140  KC  ■ I«  5 

CC(KC«NJ*NP>  - CC(KC«NJ«NF>/CNORM(NJ) 

140  CONTINUE 
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IF  <NPRTKL  .EQ.  0>  GO  TO  1005 
DO  1010  NJ  ■ 1«  NJMAX 
DO  1010  NP  - 1#  NJMAX2 
DO  1015  KC  - If  3 
CCPAH(KCf NJf NP)  ■ (O.OfO.O) 

1015  CONTINUE 
NPM  - NP 

IF  <NP  .GT.  NJMAX)NPM  • NP  -NJMAX 
NJM  > NJ 

C CALCULATE  AXIAL  INTEGRALS. 

DO  1020  NOPT  - 1*  4 

CALL  AXl  AL  1 ( NOPT#  NPM#  NJM#  UE#  2 E#  CRSL  T) 

1020  AX(NOrT)  ^ CRSLT 

IF  <NP  *GT.  NJMAX)  GO  TO  1025 
CCPAR( 3#NJ#NP)  - - AX(1) 

GO  TO  1010 

1025  CCPARC  1#NJ#NP)  - AX(1) 

CCPAR(  2#NJ#NP)  ■ UPBYU*(AX<4)  ♦ AX(  3)  ) 

CCPAR( 3#NJ#NP)  - AX(1) 

1010  CONTINUE 

DO  1030  NJ  ■ 1#NJMAX 

NJM  « NJ  ♦ NJMAX 

CNOFM(NJM)  - CCPARC  1#NJ#NJM) 

DO  1030  NP  - 1#  NJMAX2 
DO  1030  KC  - 1#  3 

CCPAR(KC#NJ#NP)  - CCPAR(KC«NJ#NP)/CNORM(NJM) 

1030  CONTINUE 
1005  CONTINUE 

«***«*«****«*;«*«*«#««4i«********«4i«*«******4i«*****«4i«*«*****«*4*««* 

COMPUTE  NONLINEAR  COEFFICIENTS* 

IF  (NONLIN  .Ed.  0)  GO  TO  402 
01  ■ (GAMMA  - I.Q)  * 0*5 

C 

170  DO  200  MJ  • 1#  NJMAX 
NJM  - NJ  ♦ NJMAX 
DCOEF  ■ 0.5  / CNORM(NJ) 

00  200  NP  • 1#  NJMAX 
DO  200  NO  « 1#  NJMAX 
C 

C01(NJ#NP#N0)  • (0*0#0.0) 

C02(NJ«NP#NQ)  - 0*0#0.0) 

CD3(NJ#NP#NQ)  • (0*0#0.0) 

CD4<NJ#NP#NQ)  - (O.OfO.O) 

C 

244  DO  240  J - 2.  3 
DO  240  NC  • 1#  4 

CALL  AX1AL2(  J#NC#NP# NO# NJ#ZE#  CRSLT) 

AX1NT(NC#J)  - CRSLT 
240  CONTINUE 
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CD1(NJ«NP«N0) 

CD2(NJ«NP*N0) 

CD3<NJ«NP«NQ) 

CD4(NJ«NP*NQ) 

C 

CD1(NJ#NP«N0) 

CD2(NJ*NP*Ne> 

CD3(NJ«NP*NQ> 

CD4(NJ*NP*N0> 

C 

200  CONTINUE 


AXINT(  1*2)  * 
AXINT(2*2>  * 
AX1NT(3*2>  ♦ 
AXINT(4*2>  ♦ 


G1*AXINT(  1*  3> 
G1*AXINT(  2*3) 
G1*AX1NT(  3*  3) 
G1«AX1NT(4*  3) 


CDI(NJ*NP*NO)  * 
CD2(NJ«NP*N0)  * 
CD3(NJ*NP*NQ)  * 
CD4(NJ*NP«NQ)  * 


OCOEF  * ( 1*0*  > 1*0) 
OCOEE  * ( 1*0*  1*0) 
OCOEF  * ( 1*0* 1*0) 
OCOEF  * ( 1*0*- 1*0) 


CALCULATE  COEFFICIENTS  FOR  EQUIVALENT  REAL  SYSTEM* 

402  00  3 50  NJ  - 1*  NJMAX 
NEWJ  - (2  * NJ)  - 1 
NEWJl  - NEWJ  ♦ 1 
00  360  NP  - 1«NJMAX2 
NEWP  • <2  * NP)  - 1 
NEWPl  - NEWP  ♦ 1 

COEFFICIENTS  OF  LINEAR  TERMS* 

IF  (NP  *GT*  NJMAX)  60  TO  1040 
CCR  - REAL(CC( 1*NJ*NP) ) 

CCI  « A1MAG(  CC(  1«NJ*NP)  ) 

C1(NEWJ*NEWP)  ■ CCR 
C1(NEWJ*NEWPI ) - -CCI 
CI(NEWJ1*NEWP)  - CCI 
C1(NEWJ1*NEWPI)  - CCR 
1040  CONTINUE 

DO  360  KC  > 1*3 

CCR  - REAL(CC(KC^ 1*NJ*NP) ) 

CCI  - AIMAG(CC(KC-M*NJ*NP)) 

C(KC*NEWJ*NEWP)  « CCR 
C(KC*NEWJ*NEWP1)  - -CCI 
C(KC*NEWJ1«NEWP)  - CCI 
C(KC*NEWJ1*NEWP1)  r CCR 

360  CONTINUE 


COEFFICIENTS  OF  THE  COMBUSTION  TERM* 

DO  350  NP  - 1*  NJMAX 

NEWP  > 2*NP  - 1 

NEWPl  - NEWP  * 1 

CCR  - REAL(CC(  5*NJ*NP)  ) 

CCI  - AIMAG(CC( 5*NJ*NP> ) 

E(NEWJ*NEWP*  1)  - CCR 
E( NEWJ* NEWP* 2)  • - CCI 
E(NEWJ«NEWP1*  I)  ■ - CCI 
E(NEWJ*NEWP1« 2)  • - CCR 
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E(NEWJ  1«NEWP>  1 ) - CCI 
E(NEVJ1#NEUF«  2)  - CCR 
E<NEWJ1«NEWP1«  1)  - CCR 
E(NEWJ1«NEWP1«  2>  - - CCI 
371  CONTINUE 

COEFFICIENTS  OF  NONLINEAR  TERMS. 

IF  (NONLIN  .EQ.  0)  GO  TO  350 
00  370  NO  - 1«  NJMAX 
NEWQ  - (2  * NQ>  > I 
NEWQI  « NEWQ  ♦ 1 
CDIR  - REAL(CD1(NU*NP«N0>  ) 

CDII  - AIMAG(CD1(NJ«NP«NQ)) 

CD2R  - REAL(CD2(NJ«NP«NQ)) 

C02I  - AIMAG<CD2(NJ«NP«NQ)) 

CD3R  ■ REAL(CD3(NJ«NP«NQ> ) 

CD3I  - AIMAG(CD3(NJ«NP*N0>) 

CD4R  > REAL(CD4(NJ«NP«NQ)  ) 

CD4I  • AIMAGC CD4(NJ>NP«NQ)> 

0(NEWJ«NEVP«NEVQ>  > CDIR  ♦ CD2R  ♦ CD3R  ♦ CD4R 
0(NEWJ«NEWP«NEWQ1 ) - -CDII  ♦ CD2I  - CD3I  ♦ CD41 

D<NEWJ»NEWPI#NEWO)  « -CDII  - CD2I  ♦ CD3I  ♦ CD4I 

DINEWJ^NEWPI.NEWOI ) ■ -CDIR  ♦ CD2R  ♦ CD3R  - CD4R 
D(NEWJ1«NEWP.NEWQ)  - CDII  ♦ CD2I  * C03I  ♦ CD4I 
D(NEVJ1«NEVP«NEWQ1 > - CDIR  - CD2R  ♦ CD3R  - CD4R 

D(NEWJ1«NEWP1«NEW0)  • CDIR  ♦ CD2R  - CD3R  - CD4R 

D(NEWJI«NEVP1<NEWQ1>  « -CDII  * CD2I  ♦ CD3I  - C04I 
370  CONTINUE 
350  CONTINUE 
C 

IF  <NPRTKL  *EQ.  0)  GO  TO  1035 

DO  1050  NJ  > U NJMAX 

NJM  - NJ  ♦ NJMAX 

NEWJ  - 2*NJ  - 1 

NEWJl  - NEWJ  *■  1 

DO  1050  NP  • 1/  NJMAX2 

NEWP  ■ 2*NP  -1 

NEWPl  - NEWi^  ♦ 1 

DO  830  KC  • 1*  2 

CCR  - REAL(CCPAR(KC-»  l.NJ#NP)  ) 

CCI  - AIMAG(CCPAR(KC4  1«NJ*NP)  > 

CPAR(KC«NEWJ«NEWP)  - CCR 
CPAR(KC»NEWJ«NEWPI)  - -CCI 
CPARCKC. NEWJl* NEWP)  - CCI 
CPAR(KC* NEWJl* NEWPl)  > CCR 
8 30  CONTINUE 

IF  <NP  .LE*  NJMAX)  GO  TO  1050 

NEWP  • NEWP  - NJMAX2 

NEWPl  ■ NEWP  ♦ 1 

CCR  ■ REAL(CCPAR( 1*NJ*NF) > 

CCI  ■ A1MAG(CCPAR( 1*NJ*NP)) 

ClPAR(ij»EWJ«NEWP)  - CCR 
C1PAR(NEWJ«NEWP1)  > -CCI 
ClPAR(N£WJ,i*NEWP)  > CCI 
CIPAR(NEWJ1*MEWP1)  - CCR 
1050  CONTINUE 
1035  CONTINUE 

i 
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COMPUTE  COEFFICIENTS  FOR  THE  EQUATIONS  WHICH  ARE  DECOUPLED 
IN  THE  SECOND  DERIVATIVES. 

DO  405  KC  - U 6 
KMAX(KC)  - 0 
405  CONTINUE 

CALCULATE  INVERSE  OF  THE  MATRIX  CKI.J). 

UMAX  ■ NJMAX 
NJMAX  « E * NJMAX 
JMAX2  - NJMAX2 
NJMAX2  - 2 • NJMAX2 


V( t>  - I 

CALL  G JR( C 1 * M AXMD2«  MAXM 02*  NJMAX*  0*  JC*  V) 

USE  INVERSE  TO  CALCULATE  DECOUPLED  COEFFICIENTS. 


LINEAR  COEFFICIENTS. 

DO  430  NP  - 1*  NJMAX2 
DO  420  NJ  > I*  NJMAX 
DO  420  KC  • 1*  3 
TS(KC*NJ>  - 0.0 
DO  420  K - I*  NJMAX 

TS(KC*NJ)  - TS<KC*NJ)  *■  Cl(NJ*K)  • C(KC*K*NP) 
420  CONTINUE 

DO  430  NJ  - 1*  NJMAX 
DO  430  KC  « I*  3 
C(KC*NJ*NP)  - T£fKC*NJ) 

ABSVAL  > ABS(  C(KC*NJ*NP)  > 

IF  (ABSVAL  .6E.  SMI)  KMAX(KC)  - KMAX(KC)  ♦ 1 
430  CONTINUE 

COEFFICIENTS  OF  THE  COMBUSTION  RESPONSE  TERM. 

DO  720  NP  - 1*  NJMAX 

DO  725  NJ  • 1*  NJMAX 

TSR( l*NJ>  - 0.0 

TSR(2*NJ)  - 0.0 

DO  725  K • 1*  NJMAX 

TSR(I*NJ)  - TSRd.NJ)  ♦ C1(NJ*K)  * E(K*NP*1) 

TSR(2*NJ>  ■ TSR(2*NJ)  ♦ Cl(NJ*K)  * E(K*NP*2> 

725  CONTINUE 

DO  730  NJ  ■ 1*  NJMAX 
E(NJ*NP*1>  - TSRU*NJ> 

ABSVAL  ■ ABS(  E(NJ«NP*  1)  } 

IF  (ABSVAL  .QE.  SKI)  KMAX(4)  > KMAX(4)  ♦ 1 
E(NJ«NP*2)  - TSR(2*NJ) 

ABSVAL  ■ ABS(E(NJ*NP*2>) 

1F( ABSVAL  .OT.  SMI)  KMAX(  5)  ■ KMAX(  5)  ♦ 1 
730  CONTINUE 
720  CONTINUE 
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IF  (NPRTKL  .EQ.  0>  GO  TO  1060 
KMAXPR<  1)  - 0 
KMAXPR(S)  • 0 
V< 1)  ■ I 

CALL  GJR(C1PAR«MAXMD2«MAXMD2«NJMAX«0«  JC«  V) 

DO  1065  NP  - It  NJMAX2 
DO  1070  NJ  « It  NJMAX 
DO  1070  KC  - 1*  2 
TSPAR(KC*NJ)  - 0*0 
DO  1070  K - 1«  NJMAX 

TSPAR<KC«NJ)  - TSPAR(KC«NJ)  ♦ C1PAR(NJ«K>*CPAR(KC«K«NP> 
1070  CONTINUE 

DO  1065  NJ  - 1*NJMAX 
DO  1065  KC  « 1*  2 
CPAR(KC«NJ«NP)  - TSPAR(KC«NJ) 

ABSVAL  ■ ABS( CPAR(KC«NJ«NP> ) 

IF  (ABSVAL  .GE.  SMI)  KMAXPR(KC)  ■ KMAXPR(KC)  ♦ 1 
1065  CONTINUE 
1060  CONTINUE 

NONLINEAR  COEFFICIENTS* 

IF  (NONLIN  *EQ.  0)  GO  TO  410 
DO  735  NF  - 1«  NJMAX 
DO  735  NO  ■ 1*  NJMAX 
DO  440  NJ  « 1*  NJMAX 
TSQ(NJ)  - 0*0 
DO  440  K - 1«  NJMAX 

TSQ(NJ>  - TSO(NJ)  * C1(NJ>K)  * D(K«NP«NO> 

440  CONTINUE 

DO  445  NJ  - 1*  NJMAX 
D(NJ*NP*NO)  > TSO(NJ) 

ABSVAL  • ABS(D(NJ*NP*NQ>) 

IF  (ABSVAL  *GT*  SM2>  KMAX(6)  ■ KMAX(6>  * 1 
445  CONTINUE 
735  CONTINUE 
410  CONTINUE 


OUTPUT. 

IF  (NOUT  .EC.  2)  GO  TO  455 
WRITE  (6*6001)  T1H.E 
WRITE  (6*6002)  GM1*  UE 
IF  (NOZZLE  .EQ*  0)  WRITE  (6*6012) 

IF  (NPRTKL  .£0.  0)  WRITE  (6*6022) 

IF  (NPRTKL  .EQ*  1)  WRITE  (6*6021)  DIA*  CM/  FREQ* 
1 TEMP*  SP*  RHOM*  PARTKL 

WRITE  (6*6004) 

DO  310  J • 1*  JMAX 

WRITE  (6*6003)  NAME(J)*  J*  L(J)*  B(J)*  YNOZ(J) 
310  CONTINUE 

IF  (NONLIN  .EQ.  0)  WRITE  (6*6013) 
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UUTFUT  OK  LINEAH  COEFFICIENTS* 

DO  320  KC  - 1*  3 
NJS  ■ 0 
NJF  ■ 0 
KOUNTJ  ■ 1 
758  NJS  - NJF  ♦ 1 

NJF  - 10  * KOUNTJ 
IF  (NJF  •GT*  NJMAX)  NJF  - NJMAX 
NFS  ■ 0 
NPF  - 0 
KOUNTP  - I 
754  NPS  ■ NPF  ♦ I 

NPF  - 10  • KOUNTP 

IF  (NPF  .GT*  NJMAX2)  NPF  - NJMAX2 
IF  (KC  .EQ.  1)  WRITE  (6*6005) 

IF  (KC  •EQ*  2)  WRITE  (6*6006) 

IF  (KC  *EQ*  3)  WRITE  (6*6007) 

WHITE  (6*6008)  (NP*  NP  • NPS*  NPF) 

WRITE  (6*6014) 

DO  7 50  NJ  - NJS*  NJF 

WRITE  (6*6009)  NJ*  ( C(KC*  NJ*  NP ) * NP  - NPS*  NPF) 
7 50  CONTINUE 

IF  (NPF  *EQ.  NJMAX2)  GO  TO  752 
KOUNTP  - KOUNTP  ♦ 1 
GO  TO  7 54 

752  IF  (NJF  *EQ*  NJMAX)  GO  TO  756 
KOUNTJ  - KOUNTJ  ♦ 1 
GO  TO  7 58 
7 56  CONTINUE 
320  CONTINUE 

OUTPUT  OF  THE  COMBUSTION  RESPONSE  TERM. 

DO  770  KC  • 1*  2 
NJS  - 0 
NJF  ■ 0 
KOUNTJ  - 1 
760  NJS  ■ NJF  ♦ 1 

NJF  - 10  * KOUNTJ 
IF  (NJF  *GT*  NJMAX)  NJF  • NJMAX 
NPS  - 0 
NPF  ■ 0 
KOUNTP  ■ 1 
762  NPS  - NPF  ♦ 1 

NPF  • 10  * KOUNTP 

IF  (NPF  *GT.  NJMAX)  NPF  ■ NJMAX 

IF  (KC  .EQ*  1)  WRITE  (6*6019) 

IF  (KC  .EQ.  2)  WRITE  (6*6020) 

WRITE  (6*6008)  (NP*  NP  » NPS*  NPF) 

WRITE  (6*6014) 

00  764  NJ  > NJS*  NJF 

WRITE  (6*6009)  NJ*  ( E(NJ*NP*KC)«  NP  - NPS*  NPF) 
764  CONTINUE 
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IF  (NPF  •EQ.  NJMAX)  00  TO  766 
KOUNTP  ■ KOUNTP  ♦ 1 
GO  TO  762 

766  IF  (NJF  .EQ.  NJMAX)  GO  TO  768 
KOUNTJ  - KOUNTJ  ♦ I 
00  TO  760 
768  CONTINUE 
770  CONTINUE 
C 

IF  (NPRTXL  .EQ.  0)  GO  TO  835 
DO  1080  KC  > 1*  2 
NJS  ■ 0 
NJF  ■ 0 
KOUNTJ  • 1 
C 

1072  NJS  - NJF  ♦ 1 

NJF  - 10«K0UNTJ 

IF  (NJF  .GT.  NJMAX)  NJF  - NJMAX 
NPS  - 0 
NPF  ■ 0 
KOUNTP  ■ 1 
1074  NPS  ■ NPF^l 

NPF  • 10*K0UNTP 

IF  (NPF  .GT.NJMAX2)  NPF  > NJMAX2 
WRITE  (6«6023> 

WRITE  (6«6008)  (NP*  NP  • NPS>NPF) 

WRITE  (6«6014) 

DO  1076  NJ  > NJS.NJF 

WRITE  (6«6009)  NJ.  ( CPAR(KC.NJ.NP>.NP  - NPS.NPF) 
1076  CONTINUE 

IF  (NPF  .EQ.  NJMAX2>  GO  TO  1076 
KOUNTP  - KOUNTP  * I 
GO  TO  1074 

1078  IF  (NJF  .EQ.  NJMAX)  GO  TO  1080 
KOUNTJ  « KOUNTJ  ♦ 1 
GO  TO  1072 
1080  CONTINUE 
835  CONTINUE 

C OUTPUT  OF  NONLINEAR  COEFFICIENTS. 

IF  (NONLIN  .EQ.  0)  GO  TO  452 
DO  400  NJ  ■ 1.  NJMAX 
NPS  - 0 
NPF  - 0 
KOUNTP  - 1 
780  NPS  ■ NPF  ♦ 1 

NPF  • 10  ♦ KOUNTP 
IF  (NPF  .GT.  NJMAX)  NPF  - NJMAX 
NQS  - 0 
NQF  ■ 0 
KOUNTQ  ■ 1 
776  NQS  - NQF  ♦ 1 

NQF  ■ 10  4 KOIMTQ 
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IF  (NQF  (GT*  NJMAX)  NOF  > NJMAX 
WRITE  (6«6010)  NJ 

WRITE  (6*6011)  (NO*  NO  - NQS*  NQF) 

WRITE  (6*6015) 

DO  772  NP  ■ NFS*  NPF 

WRITE  (6*6009)  NP*  ( D(NJ*NP*  NQ)*  NQ  « NQS*  NQF) 

772  CONTINUE 
771  CONTINUE 

IF  (NQF  *EQ.  NJMAX)  GO  TO  774 
KOUNTQ  « KOUNTQ  ♦ 1 
GO  TO  776 

774  IF  (NPF  *EQ.  NJMAX)  GO  TO  778 
KOUNTP  ■ KOUNTP  ♦ 1 
GO  TO  780 
778  CONTINUE 
400  CONTINUE 

452  IF  (NOUT  *EQ.  0)  GO  TO  4 

WRITE  COEFFICIENTS  ON  FILE* 

455  WRITE  (9*7001)  GAMMA*  UE*  Z E*  NJMAX*  NPRTKL 

IF  (NPR1KL  *EQ.  1)  WRITE  (9*7007)  DIA*  RHOM*  SP*  TEMP*  FREQ* 
1 PARTKL*  CM 

DO  450  J - 1*  JMAX 

WRITE  (9*7002)  J*  L(J)*  NAME(J) 

450  CONTINUE 

DO  457  J ■ 1*  JMAX 

WRITE  (9*7006)  J*  YNOZ(J)*  B(J) 

457  CONTINUE 

DO  460  KC  ■ 1*  3 
WRITE  (9*7003)  KMAX(KC) 

DO  460  NJ  ■ 1*  NJMAX 
DO  460  NP  - 1*  NJMAX2 
ABSVAL  • APS( C(KC*NJ*NP)) 

IF  (ABSVAL  *GE*  SMI)  WRITE  (9*7004)  NJ*  NP*  C(KC*NJ*NP) 

460  CONTINUE 

DO  820  KC  - 4/  5 
WRITE  (9*7003)  KMAX(KC) 

KCMIN3  ■ KC  - 3 
DO  820  NJ  - 1*  NJMAX 
DO  820  NP  • 1*  NJMAX 
ABSVAL  - ABS(  E(NJ*NP*KCMIN3)  ) 

IF  (ABSVAL  •GT<  SMI)  WRITE  (9*7004)  NJ*  NP*  E(NJ*NP*KCMIN3) 

8 20  CONTINUE 
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DO  1082  KC  - 1*  2 
WHITE  <V»7003)  KMAXPRCKC) 

DO  1082  NJ  - I,  NJMAX 
DO  1082  NP  - 1*  NJMAX2 
ABSVAL  - ABS(CPAR(KC«NJ«NP)  ) 

IF  (ABSVAL  •GE*  SMI)  WRITE  (9«  7004)NJ*NP«  CPAR(KC«NJ«NP) 

1082  CONTINUE 
C 

WRITE  (9*7003)  KMAX(6) 

IF  (NONLIN  *EQ.  0)  GO  TO  4 
DO  470  NJ  <*  1*  NJMAX 
DO  470  NP  - 1*  NJMAX 
DO  470  NO  ■ 1*  NJMAX 
ABSVAL  - ABS(  D(NJ*NP«NQ)  ) 

IF  (ABSVAL  •GE*  SM2)  WRITE  (9*7005)  NJ*  NP*  NO*  D(NJ*NP*NQ) 

470  CONTINUE 
60  TO  4 
C 

600  CONTINUE 

4l**«*«*4l«*4i««*««****4^**«*«4l*4l4l4l****4i^»«4i*4l4l4l«**«***4l***4l**#*«*4l**** 


FORMAT 

5000  FORMAT 

5001  FORMAT 

5002  FORMAT 

5003  FORMAT 

5004  FORMAT 

5005  FORMAT 

5006  FORMAT 

6001  FORMAT 

6002  FORMAT 

6003  FORMAT 

6004  FORMAT 
1 

6005  FORMAT 

6006  FORMAT 
1 

6007  FORMAT 
1 

6008  FORMAT 

6009  FORMAT 

6010  FORMAT 
1 

6011  FORMAT 

6012  FORMAT 

6013  FORMAT 

6014  FORMAT 

6015  FORMAT 
6019  FORMAT 

1 


SPECIFICATIONS* 

(7A10) 

(2F10*0*I 5) 

( 21  5*  IX*  A4) 

(15*  2F10*0) 

(61  5) 

(2F10*0) 

(6F10*0) 

( IHl* IX*  7A10//) 

(2X*8HGAMMA  - * F8 * 5*  5X*  4HUE  «*F6*4*//) 

(2X*A4*2I  5*4F10*5/) 

( 2X////2X*  14HNAME  J L*  6X*  3HEPS*  7X*  3HETA* 

8X*  2HYR*  7X*  2HYI // ) 

(1H1*45H  DECOUPLED  COEFFICIENT  OF  B(P)t  C(1*J*P)///) 

(1H1*44H  DECOUPLED  COEFFICIENT  OF  THE  DERIVATIVE  OF* 

6H  B(P)t*  5X*8HC(2*  J*P)///) 

(1H1*36H  DECOUPLED  COEFFICIENT  OF  THE  TERM** 

15H  MULTIPLYING  Kl  * 5X*  8HC(  3*  J*  P)/// ) 

(7X* 1HP*I8*9I 12) 

(2X//2X*13*  3X*  10F12*6) 

( 1H1*47HDEC0UPLED  NONLINEAR  COEFFICIENT  IN  GAS  EQUATION* 
7H  FOR  B(*l 2* IH)///) 

(7X* 1HQ*I8*91 12) 

(2X*20H QUASI -STEADY  NOZZLE*/) 

(2X//2X*24HLINEAR  COEFFICIENTS  ONLY) 

(4X* IHJ) 

(4X*  IHP) 

(1H1*40H  DECOUPLED  COEFFICIENT  OF  THE  REAL  PART* 

24H  OF  THE  COMBUSTION  TERMt  * 5X*  8HE(  J*  P*  I ) ///> 
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60i!0  rOKMAT  DECOUPLfcD  COEFFICIfcNT  OF  THE  IMAGINARY  PART# 

I 2AH  OF  THE  COMBUSTION  TERMt  » 5X#  8HE(  J#  P#  2) ///) 

6021  FORMAT  ( ///«  1 OX#  27HPARTI  CLE  DI A (IN  MICRONS)  > #F5*2#I0X# 

1 AHCM  -#F6*4#  lOX#  I8HFREQ  (IN  HERTZ)  - #F6#I#//# 

2 lOX# 26HCHAMBER  TEMP  (IN  DEG  K)  - # F6« 1# lOX# 4HSP  «# 

3 F6.4#  lOX# 27HRH0M  (IN  KG/CUBI C METER)  ■ # F6« I# //# I OX# 

A 30HPARTICLE  DRAG  COEFFICIENT#  K «#F8.4#////) 

6022  FORMAT  ( 2X*  22HPARTI  CUES  NOT  PRESENT.//) 

6023  FORMAT  ( IH  I#  39HC0EFFI  Cl  ENTS  IN  THE  PARTICLE  EOUATIONSi# 

I I2H  CPAR( J» P)///) 

7001  FORMAT  (3FI0*5#315) 

7002  FORMAT  (2I5#IX#A4) 

7003  FORMAT  (15) 

7004  FORMAT  (215«FIS.8) 

7005  FORMAT  (3I5#F15.8> 

7006  FORMAT  (15#4FI2.8> 

7007  FORMAT  (7F15.8) 

END 
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SUUHOUTINE  AXl  AL  1 (NOH»NF#NJ.  Ufc* Z E»  RESUL T) 


THIS  SUBROUTINE  CALCULATES  THE  INTEGRAL  OVER  THE  INTERVAL 
<0»ZE>  OF  THE  FOLLOWING  FUNCTIONS  ACCORDING  TO  THE  VALUE 
OF  NOPT 

NOPT  - 1 2<NP)  • ZC(NJ) 

NOPT  - 2 ZPPtNP)  • ZC(NJ) 

NOPT  - 3 UP  • Z<NP)  ♦ ZC<NJ) 

NOPT  -A  U ♦ ZP(NP)  * ZCCNJ) 

IN  THE  ABOVE  EQUATIONS! 

Z(NP>  IS  THE  AXIAL  ACOUSTIC  EIGENFUNCTION  OF  INDEX  NP. 

Z(NJ>  IS  THE  AXIAL  ACOUSTIC  EIGENFUNCTION  OF  INDEX  NJ» 

ZC  IS  THE  COMPLEX  CONJUGATE  OF  THE  AXIAL  EIGENFUNCTION. 

ZP  AND  ZPP  ARE  THE  FIRST  AND  SECOND  DERIVATIVES  OF  THE 
AXIAL  EIGENFUNCTIONS  RESPECTIVELY. 

U IS  THE  STEADY  STATE  VELOCITY  DISTRIBUTION  AND  UP  IS  ITS 
AXIAL  DERIVATIVE. 

THE  VELOCITY  DISTRIBUTION  IS  COMPUTED  BY  THE  SUBROUTINE  UBAR. 


REAL  PAG 

COMPLEX  Clf  CZEm  bp.  BJ.  T1.  T2.  CH.  FI.  F2.  F3.  CZ.  ARG. 

1 SI.  S2.  S3.  RESULT.  FUNCT(500).  B(6).  CCOSH.  CSINH 

COMMON  B 

MAXMD  « 6 
Cl  - (0.0. 1.0) 

CZE  • CMPLXCZE.  0.0) 

BP  - B(NP) 

BJ  « CONJG(B(NJ)) 

IF  (NOPT  .GT.  2)  GO  TO  50 

CALCULATE  INTEGRALS  BY  MEANS  OF  ANALYTICAL  EXPRESSIONS  FOR 
NOPT  • I AND  NOPT  - 2. 

ARG  ■ (BP  ♦ BJ)  ■»  Cl 
MAG  « CABS(ARG) 

IF  (MAG)  20.  25.  20 
20  T1  ••  CSINH(ARG*CZE)/ARG 
GO  TO  30 
25  T1  - CZE 

30  ARG  ■ (BP  - BJ)  ♦ Cl 
MAG  - CABS(ARG) 

IF  (MAG)  35.  40.  35 
35  T2  • CS1NH(  ARG«CZE)/ARG 
GO  TO  45 
40  T2  - CZE 

45  RESULT  • (T1  ♦ T2>  * <0.5. 0.0) 

IF  (NOPT  .EQ.  2)  RESULT  • -B(NP)  * B(NP)  * RESULT 
GO  TO  100 
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NUMERICAL  EVALUATION  OF  INTEGRALS  FOR  NOPT  - 3 AND  NOPT  ■ 4 


C 
C 
C 

C COMPUTE  STEP  SIZE  FOR  SIMPSON  INTEGRATION* 

50  N - 50 
RN  - N 

RESULT  s (0*0«0*0) 

N0PT2  ■ NOPT  - 2 
C 

H - ZE/RN 
ZO  - 0*0 
NPI  • N ♦ I 
CH  - CMPLX(H«0.0) 

C 

C COMPUTE  INTEGRANDS* 

DO  60  I - 1*  NPI 
STEP  ■ I - 1 
Z ■ < STEP  • H)  ♦ ZO 
CZ  - CMPLX(Z<0*0) 

ARG  - Cl  ♦ SP 

IF  (N0PT2  *EQ.  2)  GO  TO  120 
CALL  UBAR(2«UE*ZE«Z«F) 

F2  - CCOSHC  ARG-»CZ) 

GO  TO  170 

120  CALL  UBAR(  1*  UE«ZE#Z«F> 

F2  - ARG  * CSINH(AR6«CZ) 

170  CONTINUE 

FI  ■ CMPLX(F»0*0) 

ARG  - Cl  * BJ 
F3  - CCOSH(ARG*CZ> 

FUNCTCI ) • FI  • F2  * F3 
60  CONTINUE 
C 

C PERFORM  SIMPSON  INTEGRATION. 

NMl  - N - 1 

51  - FUNCTCl)  ♦ FUNCT(NPl) 

52  - (O.OfO.O) 

53  - (0.0«0*0> 

DO  70  I - 2*  N«  2 

52  - S2  ♦ FUNCTd) 

70  CONTINUE 

DO  eO  I B 3«  NMl*  2 

53  - S3  ♦ FUNCTC  I ) 

80  CONTINUE 

RESULT  ■ RESULT  ♦ 

1 CH  * (SI  * ( 4.0*0*0)*S2  ♦ (2*0*0*0>*S3)/(  3.0*0*0> 

C 

100  CONTINUE 
RETURN 
END 
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SUBHOUTINE  AXI  AL 8( NOP T*NCONJ#NP«NO«NJ«ZE«  RESULT) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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THIS  SUBROUTINE  CALCULATES  THE  INTEGRAL  OVER  THE  INTERVAL 
(0«ZE)  OF  THE  FOLLOWING  FUNCTIONS  ACCORDING  TO  THE  VALUES 
OF  NOPT  AND  NCONJ 


FOR  NCONJ 
NOPT  - 1 
NOPT  ■ 2 
NOPT  - 3 
NOPT  - 4 


1 AND 

Z(NP)  * Z(NQ)  * ZC(NJ) 
ZP(NP)  * ZP(NQ)  * ZC(NJ) 
ZPP(NP)  * Z(NQ)  * ZC(NJ) 
ZP(NP)  * Z(NQ)  * ZC<NJ> 


FOR  NCONJ 
NOPT  • I 
NOPT  - 2 
NOPT  • 3 


2 AND 

Z(NP)  * ZC(NQ)  * ZC(NJ) 
ZP(NP)  * ZPC(NQ)  * ZC(NJ) 
ZPP(NP)  * ZC(NQ)  * ZC(NJ) 


FOR  NCONJ 
NOPT  - 1 
NOPT  - 2 
NOPT  - 3 


3 AND 

ZC(NP)  * Z(NQ>  * ZC(NJ) 
ZPC(NP)  * ZP(NQ)  * ZC(NJ) 
ZPPC(NP)  * Z(NQ)  «•  ZC(NJ> 


FOR  NCONJ 
NOPT  - 1 
NOPT  ■ 2 
NOPT  ■ 3 


4 AND 

ZC(NP)  * ZC(NQ)  * ZC(NJ) 
ZPC(NP)  * ZPC<NQ>  * ZC<NJ) 
ZPPC(NP)  * ZC(NO)  * ZC(NJ) 


IN  THE  ABOVE  EQUATIONS) 

Z(NP>«  Z(NQ>«  AND  Z(NJ)  ARE  THE  AXIAL  ACOUSTIC  El  GENFIMCTI  ON  S 
AND  NP«  NQ«  AND  NJ  ARE  THEIR  INDICES* 

ZP  IS  THE  FIRST  DERIVATIVE  OF  THE  AXIAL  EIGENFUNCTIONS* 

ZPP  IS  THE  SECOND  DERIVATIVE  OF  THE  AXIAL  EIGENFUNCTIONS* 

ZC  AND  ZPC  ARE  COMPLEX  CONJUGATES  OF  Z AND  ZP  RESPECTIVELY* 
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REAL  MAG 

COMPLEX  Cl*  CF*  CZE*  EP*  BQ«  BJ*  SUM*  RESULT* 
ARG(4)*  FUNCT(4>*  B(6>*  CCOSH*  CSINH 
COMMON  B 
MAXMD  - 6 


CALCULATE  INTEGRALS  BY  MEANS  OF  ANALYTICAL  EXPRESSIONS* 
Cl  * (0*0* 1*0) 

CF  - (0*25*0*0) 

CZE  ■ CMPLX(ZE*  0*0) 

BP  • B(NP) 

BO  • B(NQ) 

BJ  ■ CONJG(B(NJ)) 

IF  ((NCONJ  *EQ*  2)  *0R*  (NCONJ  *E0*  4)>  BQ  > CONJG(BQ) 
IF  (NCONJ  *0T*  2)  BP  > CONJG(BP) 
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AR6(  1) 

m 

(BP 

♦ 

BQ 

BJ) 

* 

Cl 

AR6( 2) 

m 

(BP 

♦ 

BQ 

- 

BU) 

* 

Cl 

AR6( 3) 

m 

(BP 

- 

BO 

♦ 

BJ) 

* 

Cl 

ARG( 4) 

m 

(BP 

- 

BQ 

• 

BJ) 

* 

Cl 

DO  10  J • 

MAG  - CABS(ARG<J>) 

IF  (MAG)  12<  15«  12 
12  FUNCT(J)  - CS1NH(ARG( J)*C2E)/ARG(J) 

IF  (NOPT  .EO.  4)  FUNCTCJ)  ■ ( CCOSH(  ARG(  J)*CZE)  - 
GO  TO  10 

15  FUNCT(J)  - CZE 

IF  (NOPT  *EQ.  4)  FUNCT(J)  - 0*0 
10  CONTINUE 

IF  (NOPT  *E0.  2>  60  TO  30 

SUM  - FUNCT(l)  ♦ FUNCT(2)  ♦ FUNCT(3>  ♦ FUNCT(4> 
RESIA.T  - CF  * SUM 

IF  (NOPT  •EQ*  3)  RESULT  - -BP  * BP  * RESULT 
IF  (NOPT  *EQ*  4)  RESULT  > Cl  * BP  * RESULT 
60  TO  50 

30  SUM  ■ FUNCT(l)  ♦ FUNCT(2>  - FUNCT(3)  - FLNCT(4) 
RESULT  > -CF  * BP  « BO  * SUM 
50  CONTINUE 
RETURN 
END 


1«0)/ARG(J) 
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SUBROUTINE  EIGVAL(L«  SMN/ QAnMA«  Z E«  YAMPL«  YPHASE*  RESULT) 


COMPLEX  RESULT 

COMMON  /ELKl/  GSO«  ABSQ«  ALBET#  SMNSQ 

***  **********  *************  *«**************************4i****** 

THIS  SUBROUTINE  COMPUTES  THE  COMPLEX  AXIAL  ACOUSTIC  EIGENVALUES 
FOR  A CYLINDRICAL  CHAMBER  WITH  A NOZZLE  AND  STORES  1HEM  IN 
RESULT. 

THE  EIGENVALUES  ARE  COMPUTED  BY  MEANS  OF  NEWTONS  METHOD* 

THE  INPUT  PARAMETERS  ARE  AS  FOLLOWS 
L IS  THE  AXIAL  MODE  NUMBER* 

SMN  IS  THE  DIMENSIONLESS  ACOUSTIC  FREOUENCY. 

GAMMA  IS  THE  SPECIFIC  HEAT  RATIO* 

ZE  IS  THE  DIMENSIONLESS  LENGTH  OF  THE  CHAMBER* 

YAMPL  IS  THE  NOZZLE  AMPLITUDE  FACTOR* 

YPHASE  IS  THE  NOZZLE  PHASE  SHIFT  IN  DEGREES* 

****************************************************************** 

PI  - 3*14159  26  536 
ERR  ■ 0*0000001 

IF  (YAMPL)  5»  60*  5 
CALCULATE  CONSTANTS* 

5 PHASE  - YPHASE  * PI/ 160*0 
ALPHA  ■ YAMPL  * COS(  PHASE) 

BETA  ■ YAMPL  * SIN( PHASE) 

GSQ  *>  GAMMA  * GAMMA 

ABSO  « (ALPHA  * ALPHA)  - (BETA  * BETA) 

ALBET  « ALPHA  * BETA 
SMNSQ  - SMN  * SMN 

ASSIGN  INITIAL  GUESS  FOR  EIGENVALUE* 

IF  (L  *EQ*  0)  GO  TO  45 
RL  - L 

PHI  - PI/2*0  ♦ PHASE 
XM  - RL  * Pl/ZE 
A - YAMPL/ZE 
XO  - XM  ♦ A*C0S(PHI  ) 

YO  - A*SIN(  PHI  > 

00  TO  47 

45  PHI  - P!/4*0  ♦ 0*5*PE:aSE 
A - YM1PL  * 10*0/ZE 
XO  « A * COS(  PHI  ) 

YO  • A • S1N(  PHI  ) 
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C 

C 
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47 


40 


20 


C 

C 


C 

C 

30 

50 

C 

C 

60 


C 

10 

C 

C 

6005 

6006 


ITERATION  USING  NEWTONS  METHOD  FOR  A SYSTEM  OF  TWO  EQUATIONS 
IN  TWO  UNKNOWNS* 

LI  > 0 
X - XO 

Y ■ YO 

CALL  FCNS<X*Y«ZE*F«C«FX«FY*GX*GY) 

IF  (LI  *£0*  40)  GO  TO  50 
RJFG  - (FX  ♦ GY)  - <GX  * FY ) 

IF  (RJFG)  20*  30*  20 

DEL TAX  ■ (-F  ♦ GY  ♦ G ♦ FYl/RJFG 

DELTAY  - (-G  ♦ FX  ♦ F ♦ GX)/HJFG 

LI  ■ LI  ♦ I 

X - X ♦ DELTAX 

Y - Y ♦ DELTAY 

TEST  FOR  CONVERGENCE. 

IF  (ABS(  DELTAX)  *GE.  ERR  *0R*  ABS(  DELTAY)  *GE*  ERR)  GO  TO  40 
GO  TO  10 

WARNING  MESSAGES 
WRITE  (6*6005) 

GO  TO  10 
WRITE  (6*6006) 

GO  TO  10 

CASE  OF  HARD  WALL  (YAMPL  ■ 0)* 

RL  > L 

X » RL  « PI/ZE 

Y ■ 0*0 

RESULT  » CMPLX(X*Y) 

FORMAT  SPECIFICATIONS. 

FORMAT  (2X//2X*  16HJAC0BIAN  IS  ZERO//) 

FORMAT  (2X//2X*  35HFAILED  TO  CONVERGE  IN  40  ITERATIONS//) 

RETURN 

END 


i 
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SUBROUTINE  FCNS(X*Y»ZE>  F#G»  FX»  FY»GX»GY) 

THIS  SUBROUTINE  COMPUTES  THE  FUNCTIONS  F(X«Y)  AND  G(X«Y) 

AND  THEIR  PARTIAL  DERIVATIVES  WITH  RESPECT  TO  X AND  Y. 

COMMON  /BLKl/  GSO*  ABSO«  ALBET*  5MNS0 

COMPUTE  THE  TRIGONOMETRIC  FUNCTIONS.  THE  HYPERBOLIC  FUNCTIONS 
AND  THEIR  SQUARES* 

I - 1 

ARGX  - ZE  * X 
ARGY  - ZE  * Y 
10  SX  - SIN(ARGX) 

CX  - CO S( ARGX) 

SHY  - SINH(ARGY) 

CHY  ■ COSH<ARGY> 

IF  (I  .EQ.  2)  GO  TO  20 
SXSQ  - SX  * SX 
CXSQ  - CX  « CX 
SHYSQ  - SHY  • SHY 
CHYSQ  ■ CHY  • CHY 
ARGX  - 2*0  * ARGX 

ARGY  • 2*0  « ARGY 

I - 2 
GO  TO  10 

COMPUTE  VRANSCENDENTAL  FUNCTIONS  AND  THEIR  DERIVATIVES 

20  FF  ■ CSXSO  • CHYSQ)  - (CXSQ  ♦ SHYSQ) 

QG  - (CXSQ  * CHYSQ)  - (SXSQ  * SHYSQ) 

HH  ■ 0*25  * SX  * SHY 

FFX  ■ ZE  ♦ SX  * CHY 

GGY  > ZE  * CX  * SHY 

FFY  - -GGY 

GGX  ■ -FFX 

HHX  ■ 0*5  * GGY 

HHY  • 0*5  ♦ FFX 

COMPUTE  FACTORS 

XYSfr  ■ (X  * X)  - (Y  * Y) 

XY  • X • Y 

SMNXY  ■ SMNSQ  XYSQ 

FI  - (ABSQ  * SMNXY)  - (4*0  * ALBET  * XY) 

F2  - (ALBET  * SMNXY)  ♦ (ABSQ  * XY) 

G1  ■ (ABSQ  * SMNXY)  ♦ (4*0  * ALBET  * XY) 

FXl  ■ (2*0  * X * ABSQ)  - (4*0  * ALBET  * Y) 

FX2  ■ (2*0  * X * ALBET)  ♦ (ABSQ  * Y) 

FYl  ■ (-2*0  * Y • ABSQ)  - (4*0  * ALBET  * X) 

FY2  - (-2.0  * Y * ALBET)  ♦ (ABSQ  * X) 

GXl  " (2*0  * X * ABSQ)  ♦ (4*0  * ALBET  « Y) 

GYl  ■ (-2*0  * Y * ABSQ)  ♦ (4*0  * ALBET  * X) 
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COMPUTE  F(X»Y)  AND  G(X»Y> 

F ■ (XYSO  • FF)  - (4.0  * XY  * HH) 

I ♦ GSQ  ♦ <(Fl  * 66)  ♦ <4.0  ♦Fa  * HH)> 

G - (XYSQ  ♦ HH)  ♦ (XY  ♦ FF) 

1 ♦ GSQ  ♦ ((Fa  ♦ G6)  > (G1  ♦ HH)) 

COMPUTE  THE  PARTIAL  DERIVATIVES  OF  F AND  6 

FX  - (a.O  ♦ X ♦ FF)  ♦ (XYSQ  ♦ FFX) 

1 -4.0  ♦ ((Y  ♦ HH)  ♦ (XY  ♦ HHX)) 

a ♦ GSQ  ♦ ((FXl  ♦ 6G)  ♦ (FI  ♦ 66X) 

3 ♦ (4.0  ♦ FXa  ♦ HH)  ♦ (4.0  ♦ Fa  ♦ HHX)) 

FY  ■ (-2.0  ♦ Y ♦ FF)  ♦ (XYSQ  ♦ FFY) 

1 -4.0  ♦ ((X  ♦ HH)  ♦ (XY  ♦ HHY)) 

2 ♦ GSQ  ♦ (<FY1  ♦ GG)  ♦ (FI  ♦ GGY) 

3 ♦ (4.0  ♦ FY2  ♦ HH)  ♦ (4.0  ♦ F2  ♦ HHY>) 

GX  > (a.O  ♦ X ♦ HH)  ♦ (XYSQ  ♦ HHX) 

1 ♦ (Y  ♦ FF)  ♦ (XY  ♦ FFX) 

a ♦ GSQ  ♦ ((FXa  ♦ GO)  ♦ (F2  ♦ GGX) 

3 -(GXI  ♦ HH)  - (61  ♦ HHX>) 

GY  ■ <-a.O  ♦ Y ♦ HH)  ♦ (XYSQ  ♦ HHY) 

1 ♦ (X  ♦ FF)  ♦ (XY  ♦ FFY) 

2 ♦ GSQ  ♦ ((FY2  ♦ GG)  ♦ < F2  ♦ GGY) 

3 -<6YI  ♦ HH)  - (Ql  ♦ HHY)) 

RETURN 

END 
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SUBROUTINE  QJR(  A«NC/NR>N*MC*  JC«  U> 

DIMENSION  A(NC«NR)«  JC(NR>«  V(2) 

IW-U<  1> 

M-  1 

S-  ». 

L>N4-(MC-N)4'(  I V/4) 

KD»2-M0D<IW/2#2) 

1F(KD*EQ.1)  V(2)-0> 

K1>2-M0DUW«  2) 

IF  (KI  .EQ.  2)  60  TO  20 
S DO  10  I«1*N 
10  JCd  )>I 

20  DO  91  I«1«N 

IF  (KI  *EQ.  1>  GO  TO  22 

21  M-I 

22  IFd.EQ.N)  GO  TO  60 
X»-  1. 

DO  30  J-I«N 

IF<X.GT*ABS(A(J«1  }>}  GO  TO  30 
X-ABS( A(  J#I  >) 

K-J 

30  CONTINUE 

IF(K*EQ*I)  60  TO  60 
S— S 

V(  1)»-V< 1) 

IF  (KI  .EQ.  2)  60  TO  40 
35  MU«  JC(  I > 

JC( I >*JC(K) 

JC(K)«MU 
40  DO  50  J-M*L 
X«A(I«J) 

A(I« J)-A(K« J> 

50  A(K«J)*X 

60  IF(ABS(  A(I«I  ) >.GT.O.  ) GO  TO  70 
IF(KD.EQ.l)  V(1>*0. 

JC( 1)*I- 1 
WRITE  (6«  1000) 

1000  FORMAT  ( IX*  29H  TROUBLE  WITH  MATRIX  INVERSION) 
WRITE  (6*  1001)  JC(  1) 

1001  FORMAT  ( 1X*6HJC( 1)«*I 4) 

STOP 

70  IF  (KO  .EQ.  2)  GO  TO  72 

71  1F(A(I*I).LT.0.)  S--S 
V(2)«V(2)-»AL06(ABS(Ad*I  ))) 

72  X-A(I*I) 

Ad«l  )■!. 

DO  80  J«M*L 
Ad*  J)-Ad*  J)/X 

80  CONTINUE 
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DO  9 1 K-1*N 
IF<K.EQ.I  > GO  TO  9 1 
X»A(K#1  > 

ACK#I >-0* 

DO  90  J-M«L 

A(K« J>-A(K« J)-X*A(I > J) 

90  CONTINUE 
9 1 CONTINUE 

IF  (KI  .EQ.  8)  GO  TO  MO 
95  DO  130  J-  1«N 

I F( JC( Jl.EQ.J)  GO  TO  130 
JJ- 1 

DO  100  1«JJ«N 
IF<  JCd  ) .EO.J)  GO  TO  110 
100  CONTINUE 
1 10  JCd  >-JC(  J) 

DO  120  K>1*N 
X*A(K*1  > 

A(K*1 )-A(K# J) 

120  A<K«J)-X 
130  CONTINUE 
140  JC(  1)-N 

IFIKD.EO.l)  V(l)-S 

RETURN 

END 
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SUBROUTINE  UBAR(NOPT«  UE« 2 E«Z«  RESULT) 


THIS  SUBROUTINE  CALCULATES  THE  STEADY  STATE  VELOCITY  DISTRIBUTION. 
UE  IS  THE  EXIT  MACH  NUMBER. 

ZE  IS  THE  DIMENSIONLESS  LENGTH. 

Z IS  THE  AXIAL  COORDINATE. 

IF  NOPT  - 1 THE  DISTRIBUTION  IS  CALCLLATED. 

IF  NOPT  - 2 THE  DERIVATIVE  IS  CALCULATED. 


IF  (NOPT  .EG.  1)  RESULT  » UE  ♦ Z/ZE 
IF  (NOPT  .EG.  2)  RESULT  - UE/ZE 
RETURN 
END 


COMPLEX  FUNCTION  CCOSH(X) 

COMPLEX  X 

CCOSH  - 0.5  * (CEXP(X)  ♦ CEXP(*X)) 

RETURN 

END 


COMPLEX  FUNCTION  CSINH(X) 

COMPLEX  X 

CSINH  - 0.5  • (CEXP(X)  > CEXP(-X>> 

RETURN 

END 


S 


58 


3.2 


PROGRAM  SOL1D2 


In  conjunction  with  Program  SOLIDl , Progr6un  S0LID2  calculates  the  non- 
linear stability  characteristics  of  a cylindrical  combustor  according  to  the 
approximate  theory  developed  in  Volume  I.  Using  the  coefficients  computed  by 
SOLIDl,  this  program  integrates  the  system  of  differential  equations  for  the 
mode  amplitudes  (i.e..  Equations  (22)  and  (23))  and  computes  the  time-history 
of  a pressure  disturbance  in  the  motor. 

Program  Structure.  This  program  performs  the  following  operations;  (1) 
reads  the  input  data,  (2)  calculates  the  initial  values,  (3)  numerically  in- 
tegrates the  differential  equations,  and  (4)  plots  and  prints  the  solutions. 

The  inputs  to  the  program  include  the  data  generated  by  SOLIDl,  the 
combustion  response  parameters,  various  control  numbers,  plotting  information 
and  a description  of  the  initial  disturbance.  Hie  data  from  SOLIDl  is  read 
first  and  then  printed  out.  Next  the  space  dependent  coefficients  appearing 
in  the  series  expansions  for  and  are  computed  and  printed.  These  co- 
efficients are  calculated  by  subroutine  HIICFS  for  use  in  the  computation  of 
the  pressure  perturbation.  The  remaining  input  data  is  then  read,  and  follow- 
ing program  execution,  control  is  returned  to  this  point  so  that  several  cases 
may  be  run  for  a given  set  of  coefficients  generated  by  SOLIDl. 

The  initial  disturbance  may  be  specified  as  a purely  fundamental  mode 
(IL)  disturbance  or  as  an  arbitrary  combination  of  modes.  The  number  of  modes 
for  which  initial  disturbances  are  specified  is  NTERMS,  and  for  each  of  those 
modes  the  amplitudes  AST  and  ACT  are  specified.  Thus  the  initial  waveform  of 
the  real  part  of  the  ar.plitude  for  each  specified  mode  is  given  by: 


®2j  1 ° sin(u)jt)  + ACT  cos(ujjt) 


. th 


where  B-  ^ is  the  real  part  of  the  amplitude  of  the  j mode  and  uj  is  the 
acoustic  frequency  of  the  j mode.  The  amplitudes,  imaginary  parts 

are  calculated  in  the  program  by  requiring  the  individual  modes  to  satisfy  the 
nozzle  admittance  condition.  The  initial  values  of  the  amplitudes  of  those  modes 
whose  initial  disturbance  is  specified  to  be  non-zero  are  then  printed  out.  It 
must  be  noted  chat  the  specified  inputs  AST  and  ACT  refer  to  the  amplitude  of 
the  velocity  potential  and  not  to  the  pressure  amplitude. 

After  the  starting  values  are  calculated,  numerical  integration  of  the 
system  of  differential  equations  Is  performed  using  a fourth-order  Runge-Kutta 
scheme  with  the  specified  step  size.  A step  size  of  about  0,025  is  recommended. 
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Subroutine  RHS  is  used  to  compute  the  differential  increments  needed  in  the 
Runge-Kutta  integration.  From  the  computed  amplitude  functions  and  the  co- 
efficients from  the  subroutine  PHICFS  the  pressure  perturbation  at  each  step 
is  calculated  using  the  subroutine  PRSVEL.  The  computed  value  of  the  pressure 
perturbation  is  then  printed  out  if  the  pressure  history  printout  is  desired. 

if  plotting  of  the  pressure  history  is  required,  subroutine  GRAPHS  is 
used  to  obtain  CALCCMP  plots  for  the  desired  pressure  waveforms. 

The  program  then  computes  the  dimensional  frequency  of  oscillation  and 
the  pressure  growth  rate  at  the  end  of  each  oscillation  cycle  using  the  sub- 
routine growth. 

Description  of  Input,  The  input  data  required  to  run  this  program  con- 
sists of  three  parts:  (1)  the  control  numbers  N0UTCF  and  NHISTR  which  determine 
the  extent  of  desired  printed  output,  as  explained  later  in  this  section,  (2) 
the  parameters  and  coefficients  generated  by  SOLIDl,  and  (3)  data  describing 
the  case  to  be  run.  For  each  case,  the  following  information  must  be  provided: 
the  combustion  response  parameters,  description  of  the  Initial  disturbance, 
various  control  numbers  and  plotting  information. 

A list  of  necessary  input  data  is  described  below.  Hie  description  of 
format  for  integer  and  real  constants,  given  previously  for  SOLIDl,  apply  here 
also;  i.e.,  each  integer  is  allotted  five  columns  and  each  real  constant  is 
allotted  a field  of  ten  columns. 

The  three  parts  of  the  input  are: 

(1)  The  control  numbers,  N0UTCF  and  NHISTR, 

(2)  The  coefficients  from  Program  SOLIDl. 

(3)  The  data  deck. 

The  first  card  gives  the  control  numbers,  N0UTCF  and  NHISTR. 

N0UTCF  determines  printout  of  coefficients: 

If  N0UTCF  = 0 coefficients  are  not  printed  out. 

If  N0UTCF  * 1 only  linear  coefficients  are  printed  out. 

If  N0UTCF  = 2 all  coefficients  are  printed  out. 

NHISTR  determines  if  pressure  history  is  to  be  printed: 

If  NHISTR  « 0 printed 

If  NHISTR  « 1 not  printed. 

( 

5 The  coefficients  are  obta.ned  from  program  SOLIDl  by  putting  N0UT  ■ 1 or 

I N0UT  • 2 in  that  program,  thereby  writing  the  coefficients  into  a disk. 
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This  disk  has  been  given  the  device  number  9. 

The  data  deck  consists  of  the  following  cards: 

First  card:  Title  of  the  case. 

Second  card:  H,  TSXART,  TQUIT,  FREQ,  BC^B 
H is  the  integration  step  size. 

TSTART  is  the  time  at  which  output  starts, 

TQUIT  is  the  time  at  which  computations  are  terminated. 

FREQ  is  the  motor  frequency  (in  pure  gas)  in  Hertz, 

BCjltlB  is  the  combustion  response  nonlinearity  factor. 

Third  card:  A2PARA,  B2PARA,  EN,  ?MEGA 

A2PARA  and  B2PARA  are  the  combustion  parameters  in  the  A-B  model, 

EN  is  the  pressure  exponent  in  the  burning  rate  law, 

|2HEGA  is  the  frequency  nondimensionalized  by  the  square  of  the  steady-state 
burning  rate. 

Fourth  card:  NL0C,  NTERMS,  N0UT,  NC0MB , NNPRT 

NL0C  determines  the  location  of  the  wall  pressure  maxima  and  minima: 

If  NL0C  = 1 location  is  x = 0,0 

If  NL^lC  = 2 location  is  x = 1,0 

If  NL0C  = 3 location  is  x = 0,5 

NTERMS  is  the  number  of  terms  given  initial  values. 

N0UT  is  the  outpnjt  control  number. 

If  N0UT  = 0 printed  output  only. 

If  N0UT  > 0 both  printed  and  plotted  output; 

If  N0UT  = 1 plot  of  pressure  at  x = 0,0  only. 

If  N0UT  = 2 plot  of  pressure  at  x = 0.0  and  x = 1.0 

If  N0UT  = 3 plot  of  pressure  at  x = 0.0,  1,0  and  0.5, 

NC0MB  determines  if  combustion  nonlinearities  are  considered: 

If  NCtfiB  = 0 neglected. 

If  NCjtiB  = 1 included. 

NNPRT  determines  if  nonlinear  particle  damping  is  considered: 

If  NNPRT  » 0 not  considered. 

If  NNPRT  - 1 considered. 

Next  card  (necessary  only  if  NNPRT  " 1):  REFPRS,  CPGAS,  CNLP 
REFPRS  is  the  chamber  pressure,  in  psl. 
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CPGAS  is  the  specific  heat  at  constant  pressure  of  the  gas  phase 
in  cal/gm-deg  K. 

CNLP  is  the  constant  C in  the  amplitude  dependence  of  the  nonlinear 
particle  drag. 

Next  card  (necessary  only  if  plots  are  required):  YHI , YlAB,  ITICY 
YHI  is  the  maximum  ordinate  for  pressure  plots. 

Note:  the  ordinate  scales  for  pressure  and  amplitude  plots  are  symnetric 
about  zero. 

YlAB  is  the  interval  for  ordinate  labeling  for  above  plots. 

ITICY  is  the  number  of  ordinate  tick  marks  for  above  plots. 

Note:  ITICY  should  be  negative  for  pressure  and  amplitude  plots  to 
obtain  centerline. 

Next  card  (necessary  only  if  plots  are  required):  MDPL0T 

MDPL0T  determines  if  plots  of  individual  modes  are  required: 

If  plot  of  mode  is  required,  punch  "1"  in  the 
5 X column. 

If  plot  of  J*"*'  mode  is  not  required,  punch  "0"  in  the 
5 X column. 

Next  card  (necessary  only  if  plot  of  any  inode  amplitude  is  required): 

YHIMD,  YIABMD,  ITICMD 

YHIMD  is  the  maximum  ordinate. 

YIABMD  is  the  interval  for  ordinate  labelling. 

ITICMD  is  the  number  of  ordinate  tick  marks  for  mode  piots. 

Note:  ITICMD  should  be  negative  to  obtain  centerline. 

Rcnna in ing . cards  (NTERMS  in  number):  J,  AST,  ACT 

AST  is  the  amplitude  of  the  sine  term  of  the  mode. 

ACT  is  the  amplitude  of  the  cosine  term  of  the  mode. 

It  must  be  noted  that  AST  and  ACT  are  the  amplitudes  of  the  mode-amplitude 
functions  and  not  the  pressure.  If  the  initial  pressure  disturbance  is  given  for 
only  one  mode  (say,  the  longitudinal  mode)  then  the  values  of  AST  and  ACT 
which  yield  the  desired  initial  pressure  disturbance  are  given  as  follows: 

1 .t/i  . iklL 

ACT  - 0.0,  AST  =• Y 
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where  |p'|  is  the  desired  initial  head-end  pressure  amplitude,  y is  the  specific 
heat  ratio  of  the  >>as-part  ic  le  mixture  >»iven  by  Equation  (105),  and  is  the 
acoustic  frequency  of  the  longitudinal  mode  given  by 


(jUj  = j n 


1 

y(1+c  ) 

m 


If  no  particles  are  present,  y = y and  = jn.  Ihe  above  equation  for  AST  was 
derived  frcxn  the  momentum  equation  (i.e,.  Equation  (24)). 

Description  of  the  Subroutines.  The  various  subroutines  utilized  in  pro- 
gram S0LID2  are  described  below: 

SUBR^TINE  PHICFS(NP.  Z,  CT,  CZ).  This  subroutine  computes  the  space- 

th 

dependent  coefficients  appearing  in  the  NP  mode  of  the  series  expansion  for 
and  Z is  tlie  axial  location  (i.e.,  x)  at  which  these  coefficients  are 
needed,  and  CT  and  CZ  are  these  coefficients.  CT  is  Just  the  eigenfunction  for 
the  mode  and  CZ  is  the  axial  derivative  of  the  eigenfunction  (both  evalu- 

ated at  the  location  Z).  The  eigenvalues  B are  supplied  through  the  labeled 
common  block  BLK2. 

SUBROUTINE  PRSVEL  ( UBAR.  UMS , Y.  P.  VZGAS.  VZPAR) . This  subroutine 
computes  the  pressure  (P ) and  axial  velocity  perturbations  (VZGAS  and  VZPAR) 
of  gas  and  particles  using  the  supplied  mode -amplitude  functions  and  their 
derivatives  (V).  UBAR  is  the  steady-state  velocity  and  UMS  is  its  derivative 
at  the  axial  location  where  pressure  is  to  be  computed.  Pressure  is  computed 
from  the  second  order  momentum  equation  (i.e..  Equation  (24))  and  velocity  is 
computed  as  the  axial  derivative  of  the  velocity  potential.  The  space-dependent 
coefficients  (COEF)  of  and  are  compnited  by  subroutine  PMICFS  and  are  sup- 
plied through  the  common  block  BLK3. 


SUBRlOUTlNE  RHS  (U,UP).  This  subroutine  calculates  the  right-hand-sides 
of  the  equations  for  the  mode-amplitude  functions  (written  as  an  equivalent 
first  order  system);  i.e.,  f^  in  the  system  rf  equations: 

dBj/dt  . B' 


dBj/dt 


fj(Bi, 


U is  tl.e  array  containing  the  mode -amplitude  functions  and  their  derivatives 
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which  is  supplied  to  the  subroutine,  and  UP  is  the  array  containing  the  com- 
puted values  of  f j . The  coefficients  of  the  linear  and  nonlinear  terms  in  the 
equations  for  the  mode-amplitude  functions  are  supplied  from  the  blank  cannon 
space.  If  nonlinear  combustion  response  (using  the  heuristic  model)  is  to  be 
considered,  the  necessary  additional  terms  are  calculated  using  the  quantities 
in  common  block  BLK5.  Similarly,  if  nonlinear  particle  d^^nping  is  to  be  con- 
sidered, common  block  BLK7  contains  the  information  necessary  to  calculate  the 
additional  terms. 


SUBROUTINE  GRA^TH  (MAXP.  TIMAX.  PMAX . FREQ).  This  subroutine  computes 
the  pressure  growth  rate  and  frequency  of  oscillation  at  the  end  of  each  cycle 
of  oscillation.  HiAX  is  an  array  containing  the  values  of  the  pressure  maxima 
and  minima  which  are  computed  in  the  calling  (main)  program,  TIMAX  is  an  array 
containing  the  values  of  the  dimensionless  times  at  which  these  maxima  and  min- 
ima occur  and  MAXP  gives  the  total  number  of  n>axima  and  minima.  FREQ  is  the 
pure-gas  acoustic  frequency  (dimensional)  which  is  needed  for  converting  the 
nondimens ional  growth  rate  and  frequency  values  into  dimensional  quantities. 

For  cominiting  the  growth  rate,  only  pressure  maxima  are  considered,  and  the 
exponential  growth  rate  (negative  if  there  is  decay)  and  frequency  during  each 
cycle  are  calculated  and  stored  under  the  array  names  ALPHA  and  F respectively. 
The  subroutine  itself  prln's  out  these  values;  the  only  output  of  subroutine 
GROWTH  is  this  printout. 


SUBROUTINE  RESPNS  (EN.  A.  B.  (8MEGA.  RES).  This  subroutine  calculates 
the  complex  combustion  response  RES  according  to  the  two-parameter  (A-B)  model 
(Equations  (10)  and  (11)),  A and  B are  the  two  parameters  appearing  in  Equation 
(10),  EN  is  the  pressure  exponent  in  the  steady-state  burning  law,  and  ^EGA 
is  the  frequency  nondimens ionalized  by  the  square  of  the  steady-state  burning 
rate  as  described  in  Volume  I. 

COMPLEX  FUNCTION  CCOSH  (X).  This  function  calculates  the  hyperbolic  cosine 
(i.e.,  cosh)  of  a complex  number  X, 


COMPLEX  FUNCTION  CSINH(X).  This  function  calculates  the  hyperbolic  sine 
(i.e.,  sinh)  of  a coc.plex  number  X. 


Both  CCOSH(X)  and  CSINH(X)  can  be  omitted  in  computing  facilities  where 
complex  arguments  are  permitted  in  the  hyperbolic  functions  provided  in  their 
] ibrary. 
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SUBR0UTINE  GRAPHS  (IBUF.  NL0C . LDEV , NT0T.  N'nCX,  NTICY.  XMAX.  YMAX . 

XMIN,  YMIN.  ITITDC,  ITITLY.  L'nTLX.  LTITLY . XARRAY . YARRAY , DELX.  DELY.  TITLE). 
Tliis  is  the  principal  plotting  subprogram.  This  subroutine  sets  up  the  CALCCWP 
plotter,  calls  all  other  plotting  routines  and  produces  the  desired  plots.  First, 
the  different  variables  to  be  supplied  to  this  subroutine  through  the  argument 
list  are  explained, 

IBUF:  address  of  buffer  area  for  plot  outjnit;  has  dimension  NL0C. 

NLOC:  number  of  locations  in  the  buffer  area.  The  most  economical 

value  depends  on  the  computation  facility  being  used;  on  CDC 
CYBER  70/74  it  is  512. 

IDEV : logical  device  number  for  plot;  4 in  the  present  program, 

NT0T:  number  of  points  to  be  plotted. 

NTICX:  number  of  tick  marks  on  abscissa. 

NTICY:  number  of  tick  marks  on  ordinate. 

XMAX:  upper  limit  of  abscissa  dcmain, 

YMAX.  upper  limit  of  ordinate  range. 

XMIN:  lower  limit  of  abscissa  domain. 

YMIN:  lower  limit  of  ordinate  range. 

ITITLX:  abscissa  label  (alphanumeric). 

ITITLY:  ordinate  label  (alphanumeric). 

LTITLX:  number  of  characters  in  ITITLX. 

LTITLY:  number  of  characters  in  ITITLY. 

XARRAY:  array  containing  abscissa  values  of  points  to  be  plotted, 

in  terms  of  XMIN-XMAX  coordinates. 

YARRAY:  array  containing  ordinate  values  of  points  to  be  plotted,  in 

terms  of  XMIN-XMAX  coordinates. 

DELX:  interval  of  abscissa  tick  mark  labelling  in  terms  of  XMIN-XMAX 

coordinates. 

DELY:  interval  of  ordinate  tick  mark  labelling  in  terms  of  YMIN-YMAX 

coordinates. 
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TITLE: 


title  for  the  whole  run  (alphanumeric) 


This  subroutine  first  sets  up  the  plotter  variables  like  height  of 
characters  (0.105  in),  symbol  for  plotting  a point,  length  of  axes  on  plots, 
width  of  margins,  etc.  It  then  makes  the  initial  PLOTS  call  for  the  CALCCMP 
plotter.  Next,  It  calls  the  subroutine  MYAXIS  to  draw  the  axes  and  label  them. 
Finally,  it  calls  the  subroutine  MYLINF.  to  plot  the  points,  draw  the  optional 
centerlines,  and  the  page  scissorl ines.  The  plotting  parameters  are  supplied 
to  these  subroutines  through  the  argument  lists  and  through  the  coramon  block 
BLK6. 

SUBROUTINE  MYAXIS  (NTICX.  NTICY . ITITLX,  ITITLY,  XMAX , YMAX,  XMIN,  YMIN, 
LTITLX,  LTITLY.  DELX,  DELY).  This  subroutine  draws  the  X and  Y axes  and  plots  the 
tick  marks  on  these  axes.  It  calls  the  subroutine  AXLAB  to  label  these  axes  and 
the  subroutine  DENDEC  to  determine  the  number  of  decimal  places  needed  on  the 
tick  mark  labelling  of  the  axes.  The  meaning  of  the  argument  variables  is  the 
same  as  given  above, 

SUBROUTINE  MYLINE  (XARRAY . YARRAY . XMAX,  YMAX,  XMIN,  YMIN.  NT0T.  NTICY). 
This  subroutine  plots  the  NTOT  points  whose  abscissae  and  ordinates  are  given 
by  XaRRAY  and  YARRAY.  If  NTICY  is  negative,  it  draws  the  centerline.  Finally, 
it  draws  the  sclssorlinas  for  trimming  the  plots. 

SUBROUTINE  AXLAB  (ANGLE.  IBCD . NCHARX).  This  subroutine  labels  the  axes. 
IBCD  is  the  label  which  is  printed  and  ANGLE  is  the  angle  between  the  line  of 
printing  and  the  direction  of  movement  of  the  paper  on  the  plotter.  NCHARX  is 
the  number  of  characters  in  the  label. 

SUBROUTINE  DENDEC  (QMAX.  DELQ.  NDEC).  This  subroutine  determines  the 
number  of  decimal  places  NDEC  needed  on  the  tick  mark  labelling  of  an  axis. 

DELQ  is  the  interval  of  the  axis  tick  mark  labelling  and  QtlAX  is  the  range. 

Description  of  Output.  There  are  two  modes  of  output  from  this  program; 

(1)  printed  output,  and  (2)  plotted  output.  These  are  described  below.  Ihe 
printed  output  produced  by  S0LID2  consists  of  seven  sections  described  below. 

Section  (1)  is  a restatement  of  the  input  from  Program  SOLIDl.  It  in- 
cludes the  following  information:  (a)  the  mean  flow  Mach  number  at  the  combus- 
tor exit  (UE),  the  number  of  modes  considered,  the  ratio  of  specific  heats 
(GAMMA)  in  pure  gas  and  (if  particles  are  present)  the  ratio  of  specific  heats 
in  the  mixture  (GAMMABAR) ; ^b)  information  about  the  particles  (if  present); 

(c)  the  parameters  which  describe  and  Identify  each  term  in  the  series  expansion; 
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(d)  the  nozzle  admittance  (YR  and  Yl)  and  the  axial  acoustic  eigenvalue 
(EPS  and  E'£A)  for  each  series  term;  (e)  the  nonzero  linear  coefficients  if 
N0UTCF  = 1 or  2;  and  (f)  the  nonzero  nonlinear  coefficients  if  N0UTCF  = 2. 

Section  (2)  gives  the  coefficients  needed  for  computation  of  the  pres- 
sure perturbation;  i.e,,  the  coefficients  in  the  series  for  each  of  the  series 
terms  at  the  two  ends  and  the  middle  of  the  chamber. 

Section  (3)  prints  out  the  combustion  parameters  and  the  real  and  imagin- 
ary parts  of  the  response  functions.  If  a nonlinear  combustion  response  is  con- 
sidered, the  parameter  b in  the  heuristic  nonlinear  combustion  model  is  given. 

Section  (4)  gives  the  acoustic  frequency  and  initial  amplitudes  of  all  the 
series  terms  included  in  the  assumed  initial  disturbance. 

Section  (5)  is  printed  only  if  NHISTR  ■=  0.  In  this  section,  the  time  his- 
tories of  (a)  the  pressure  disturbance  at  the  two  ends  and  the  middle  of  the 
chamber  and  (b)  the  gas  and  particle  velocity  perturbations  at  the  middle  of 
the  chamber  are  printed  out,  starting  at  time  t = TSTART  and  ending  at  time 
t = TQUIT  (TSTART  and  TQUIT  having  been  specified  in  the  input). 

Section  (6)  gives  the  pressure  maxima  and  minima  values  at  the  chamber 
location  specified  by  NLjiC.  This  information  is  printed  as  an  array  of  number 
pairs  giving  the  value  of  the  pressure  maximum  or  minimum  (upper  numbers)  and 
the  corresponding  time  of  maximum  or  minimum  (lower  number). 

In  section  (7),  average  pressure  growth  rate  and  frequency  of  oscillation 
in  each  cycle  are  printed  out.  Ihls  information  is  printed  as  an  array  of  num- 
ber triads  giving  the  value  of  the  pressure  growth  rate  (upper  number),  frequen- 
cy of  oscillation  (middle  number)  and  the  dimensionless  time  at  the  mid-point  of 
the  cycle  (lower  number). 

According  to  the  value  of  N0UT  the  pressure  waveforms  at  the  ends  and 
middle  of  the  chamber  may  be  plotted.  Furthermore,  waveforms  of  individual 
mode  amplitudes  may  also  be  plotted  depending  on  the  specified  values  of  ele- 
ments in  the  array  MDPL0T  (see  the  description  of  inputs  for  details).  All 
the  plots  have  dimensionless  time  as  the  abscissa.  Ihe  range  of  the  abscissa 
for  each  plot  is  10  units,  and  the  first  plot  starts  with  t = TSTART,  Thus  for 
each  quantity  whose  plot  is  desired,  N plots  are  produced  where  N is  the  largest 
multiple  of  10  contained  in  the  interval  TSTART  to  TQUIT.  All  quantities  to  be 
plotted  for  a given  time  Interval  are  plotted  before  proceeding  to  the  next 
time  interval.  All  of  the  plots  are  scaled  to  fit  on  standard  (8^  in  x 11  in) 
paper  and  scissor-lines  are  plotted  for  trimming  plots  to  this  size.  The  data 
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is  plotted  as  individual  points  using  a centered  circle  symbol.  Before  the 
lirst  plot  is  produced  the  identifying  title  is  printed. 

Sample  Case,  A sample  case  Is  now  presented  to  facilitate  checkout. 
Pressure-time  histories  are  obtained  for  the  motor  considered  in  the  sample 
case  for  SOLIDI,  The  data  generated  by  SOLIDI  Is  used  for  the  second  part  of 
the  necessary  Input  for  S0LID2  through  a data  file  stored  on  disk.  Since  the 
purpose  of  this  run  Is  only  to  Illustrate  the  operation  of  S0LID2,  TQUIT  = 10,0 
and  only  linear  combustion  response  (NC0MB  = 0)  and  linear  particle  damping 
(NNPRT  “ 0)  are  considered.  The  combustion  parameters  are  A = 5,996,  B « 0,58, 
n = 0,575,  and  Q = 4,20,  A step  size  of  0,025  Is  chosen,  A IL-mode  Initial 
disturbance  of  10%  pressure  amplitude  Is  considered,  for  which  the  formula 
given  previously  yields  ACT  = 0,0  and  AST  = - 0,0266818, 

Pressure  maxima  and  minima  are  obtained  at  the  head  end;  hence  NL0C  =1, 
To  check  out  the  plotting  routine,  plots  of  the  pressure  disturbance  are  ob- 
tained at  the  two  ends  of  the  chamber  as  well  as  at  the  middle,  hence  N0UT  =3, 
Plots  of  the  first  five  longitudinal  modes  are  obtained  by  punching  1 at  the  5*”^, 
10^*^,  20^^,  and  25^^  columns  of  the  appropriate  card  In  the  Input  deck. 

An  lnp>ut  deck  with  the  above  data  Is  Illustrated  on  the  next  page,  llie 
printed  output  and  the  plotted  output  generated  by  Program  S0L1D2,  using  this 
deck  and  the  coefficients  generated  by  Program  SOLIDI, are  presented  In  the 
following  pages. 
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FORTRAN  Source  Code 


PR0GRM1  SOLI  08<  INPUT# OUTPUT*  DATA# 

I TAPES- 1NPUT#TAPE6*0UTPUT#TAPE9- DATA) 


PROORAH  SOL1D8 


THIS  PROGRAM  INTEGRATES  THE  SYSTiM  OF  DIFFERENTIAL  EQUATIONS 
FOR  MODE  AMPLITUDES  USING  THE  COEFFICIENTS  COMPUTED  BY  THE 
PROGRAM  SOLIDl*  TIME*H1  STORY  OF  A PRESSURE  DISTURBANCE  IN  THE 
ROCKET  IS  COMPUTED#  AMD  THE  DESIRED  PLOTS  A PRINTOUTS  ARE 
PRODUCED. 


THE  FOLLOWING  INPUTS  ARE  REQUlREDt 

(I)  THE  CONTROL  NUMBERS#  NOUTCF  AND  NHISTR. 

(8)  THE  COEFFICIENTS  FROM  PROGRAM  SOLIDl* 

(3)  THE  DATA  DECK. 

THE  FIRST  CARD  GIVES  THE  CONTROL  NUMBERS#  NOUTCF  AND  NHISTR. 

NOUTCF  DETERMINES  PRINTOUT  OF  COEFFI Cl  ENTSt 

IF  NOUTCF  ■ 0 COEFFI  "NTS  ARE  NOT  PRINTED  OUT. 

IF  NOUTCF  > I ONLY  ' UI  COEFFICIENTS  ARE  PRINTED  OUT. 

IF  NOUTCF  > a ALL  -(ClINTS  ARE  PRINTED  OUT* 

NHISTR  DETERMINES  IF  PhAS.wRE  HISTORY  I S TO  BE  PRINTEDt 
IF  NHISTR  - 0 PRINTED 
IF  NHISTR  - 1 NOT  PRINTED* 

THE  COEFFICIENTS  ARE  OBTAINED  FROM  PROGRAM  SOLIDl 

BY  PUTTING  NOUT  ■ 1 OR  NOUT  - 8#  THEREBY  WRITING  THE  COEFFICIENTS 

INTO  A DISK*  THIS  DISK  HAS  BEEN  GIVEN  THE  DEVICE  NIMBER  9* 

THE  DATA  DECK  CONSISTS  OF  THE  FOLLOWING  CARDS) 

FIRST  CARD)  TITLE  OF  THE  CASE* 

SECOND  CARD)  H#  TSTART#  TQUl  T#  FREQ#  BCOMB 
H IS  THE  INTEGRATION  STEP  SIZE* 

TSTART  IS  THE  TIME  AT  WHICH  OUTPUT  STARTS* 

TQUIT  IS  THE  TIME  AT  WHICH  COMPUTATIONS  ARE  TERMINATED* 

FREQ  IS  THE  MOTOR  FREQUENCY  (IN  PURE  GAS)#  IN  HERTZ* 

BCOMB  IS  THE  COMBUSTION  RESPONSE  NONLINEARITY  FACTOR* 

THIRD  CARDS  A8PARA#  BBPARA#  EN#  OMEGA 

A8PARA  AND  BQPARA  ARE  THE  COMBUSTION  PARAMETERS  IN  THE  A-B  MODEL. 
EN  IS  THE  PRESSURE  EXPONENT  IN  THE  BUPNINO  RATE  LAW* 

OMEGA  IS  THE  FREQUENCY  NONDIMENSIONALIZED  BY  THE  SQUARE  OF 
THE  STEADY*  STATE  BURNING  RATE* 

FOURTH  CARDS  NLOC#  NTERNS#  NOUT#  NCOMB#  NNPRT 
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NLOC  DETERHINES  THE  LOCATION  OF  THE  WALL  PRESSURE  MAXIMA 
AND  MINIMA! 

IF  NLOC  * 1 LOCATION  IS  2 • 0*0 

IF  NLOC  ■ 2 LOCATION  IS  Z > 1*0 

IF  NLOC  > 3 LOCATION  IS  Z • 0*5 

NTERHS  IS  THE  NUMBER  OF  TERMS  GIVEN  INITIAL  VALUES* 

NOUT  IS  THE  OUTPUT  CONTROL  NtMBER* 

IF  NOUT  • 0 PRINTED  OUTPUT  ONLY. 

IF  NOUT  > 0 BOTH  PRINTED  AND  PLOTTED  OUTPUTI 

IF  NOUT  • 1 PLOT  OF  PRESSURE  AT  Z - 0*0  ONLY. 

IF  NOUT  • 8 PLOT  OF  PRESSURE  AT  Z > 0*0  AND  Z - 1*0 

IF  NOUT  • 3 PLOT  OF  PRESSURE  AT  Z • 0*0«  1*0  AND  0* S. 

NCOMB  DETERMINES  IF  COMBUSTION  NONLINEARITIES  ARE  CONSIDERED! 

IF  NCOMB  ■ 0 NEGLECTED* 

IF  NCOMB  ■ 1 INCLUDED* 

NNPRT  DETERMINES  IF  NONLINEAR  PARTICLE  DAMPING  IS  CONSIDERED! 

IF  NNPRT  > 0 NOT  CONSIDERED* 

IF  NNPRT  ■ 1 CONSIDERED* 

NEXT  CARD  (NECESSARY  ONLY  IF  NNPRT  ■ I>l  REFPRS#  CPGAS*  CNLP 
REFPRS  IS  THE  CHAMBER  PRESSURE#  IN  PSl  * 

CPGAS  IS  THE  SPECIFIC  HEAT  AT  CONSTANT  PRESSURE  OF  THE 
GAS  PHASE*  IN  CAL/GM*>DEG  K* 

CNLP  IS  THE  COEFFICIENT  IN  THE  AM  PL  I TUBE- DEPEN  DDiT 
PART  OF  THE  NONLINEAR  PARTICLE  DRAG* 

NEXT  CARD  (NECESSARY  ONLY  IF  PLOTS  ARE  REQUIRED) I YHI*  YLAB*  I TI CY 
YHI  IS  THE  MAXIMUM  ORDINATE  FOR  PRESSURE  PLOTS* 

NOTE!  THE  ORDINATE  SCALES  FOR  PRESSURE  AND  AMPLITUDE  PLOTS 
ARE  SYMMETRIC  ABOUT  ZERO* 

YLAB  IS  THE  INTERVAL  FOR  ORDINATE  LABELING  FOR  ABOVE  PLOTS* 
ITICY  IS  THE  NUMBER  OF  ORDINATE  TIC  NARKS  FOR  ABOVE  PLOTS* 

NOTEI  ITICY  SHOULD  BE  NEGSmVE  FOR  PRESSURE  AND  AMPLITUDE  PLOTS 
TO  OBTAIN  CENTERLINE* 

NEXT  CARO  (NECESSARY  ONLY  IF  PLOTS  ARE  REQUIRED)!  MDPLOT 

MOPLOT  DETERMINES  IF  PLOTS  OF  INDIVIDUAL  MODES  ARE  REQUIRED! 

IF  PLOT  OF  J TH  MODE  IS  REQUIRED*  PUNCH  **!’*  IN  THE 
TH  COLUMN* 

IF  PLOT  OF  J TH  MODE  IS  NOT  REQUIRED*  PUNCH  **0**  IN  1HE 
5*J  TH  COLWN* 

NEXT  CARO  (NECESSARY  ONLY  IF  PLOT  OF  ANY  MODE  AMPLITUDE  IS 
REQUIRED)!  YHIMD*  YLABMD*  ITICMD 
YHINO  IS  THE  MAXIMUM  ORDINATE* 

YLABMD  IS  THE  INTERVAL  FOR  ORDINATE  LABELLING* 

ITICMD  IS  THE  NUMBER  OF  ORDINATE  TIC  MARKS  FOR  NODE  PLOTS* 

NOTE!  ITICMD  SHOULD  BE  NEGATIVE  TO  OBTAIN  CENTERLINE* 

REMAINING  CARDS  (NTERMS  IN  NUMBER)!  J*  AST*  ACT 

AST  IS  THE  AMPLITUDE  OF  THE  SINE  TERM  OF  THE  U TH  MODE* 

ACT  I S THE  AMFLI  TUBE  OF  THE  COSINE  TEIM  OF  THE  J TH  NODE* 
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COMPLEX  YN0Z(6>*  B(6>*  Cl«  C3«  RES<6>«  CRES 
DIMENSION  L<6>«  NRME(6>«  AA<4>*  FROKRA)* 

I YK18>#  YR(18>«  £(18»ia#8># 

I CPT(3«18>*  CFZ(3#18)«  AS(£4>« 

) AC(84>*  U<5«36>*  Y<  36  >•  PRESS!  3>« 

i YP(36>*  FZ(4«36>*  UZ(36>«Z<3>*  TIMAX(500>* 

i TPL0T(500>*  YPL0T(3«500>«  DUIMYT(500>«  DUWYY<500>* 

S 1BUF(518>«  1TT(3>*  1 TY  1(  3>#  1 TY8(  3>#  1 TY3<  4>« 

r TITLE! 7>«  PRS!500>*  Tl!500>«  PMAX!SOO>* 

I M0PL0T!6>«  UPL0T!6«  500>«  MTIILHS)*  MT11L8!8>« 

) MT1TL3!8>*  MT1TL4!8>«  NTML5!8>«  MTI1L6!8>«  MniL!8> 


COMMON 


COMMON 

COMMON 

I 

COMMON 

COMMON 

COMMON 


C!8«18«84>*  D!18«t44>*  CP!3#18«84)« 

KPMAX!3*18)«  1C!8«18#84>«  CPPAR!  8*  18«  84>« 
KPQMAX!18>«  IDP!18«t44>«  I0Q!18«144)«  CPAR!  18«  84) 
/BLK8/  B 

/BLK3/  NPRTKL«  NJMAX*  NLMAX  QAMMA« 

C0EF!8«18>«  NJMAX8 
/BLK4/  CM«  PARTKL*  RHOP 

/ELKS/  RES*  NCOMB*  BCOMB*  E 

/BLK7/  NNPRT*  CNNPRT 


DATA  1TT/"DIM1MSI0NL*‘***ESS  TIME*  •**”T  "/* 

I 1TY1/**HEAD-END  P-*-RESSURE  PE"* -RTURBATI  ON"/* 

} 1TY8/"N0ZZLE  PRE"* "SSURE  PERT"* "URBATl ON  "/* 

i I TY  3/ "PRESSURE  P"* "ERTURBATl 0"*  "N  AT  THE  C"* "ENTER 

) MT11L1 /"AMPLITUDE  "*"0F  IL  MODE"/* 

i MTITL8/"AMPLITUDE  "*"0F  8L  MOOrv# 

> MT1TL3/"AMPL1TUDE  "*"0F  3L  MODE"/* 

r MTITL4/"AHPL1TUDE  "*  "OF  4L  MODE"/* 

1 MT1TL5/"AMPL1TUDE  "*  "OF  5L  MODE"/* 


MT1TL6/"AMPLITUDE  "*"0F  6L  MODE"/ 


MAXMD  ■ 6 
MAXMD8  - 18 
MAXMD4  > 84 
MAXMDD  ■ 144 
LAST  • 5 
ERR  ■ 0*001 
TDEL  ■ 10*0 
NPT  > 0 
AA!1>  > 0*0 
AA!8)  >0*5 
AA!3>  >0*5 
AA!4>  - 1*0 
PI  - 3*1415986536 
HC  • 1*0 

READ  ! 5* 5003)  NOUTCF*  NHl STR 
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c *•••*•****••*  COEPriClENT  INPUT  SECTION  ♦*♦♦•***•••*••■ 

C 

C THIS  VERSION  OF  SOLIDS  READS  THE  COEFFICIENT  DATA  FROM 
C A FILE  GENERATED  BY  PROGRAM  SOLIDl*  TO  READ 

C THIS  DATA  FROM  CARDS*  USE  READ  ( 5*XXXX>  INSTEAD  OF 

C READ  (9«XXXX>  IN  THIS  SECTION* 

C 

C INPUT  OF  MOTOR  PARAMETERS  AND  NIMBER  OF  TERMS* 

READ  (9*  5001  > GAMMA*  UE*  ZE*  NJMAX*  NPRTKL 
RHOP  ■ 0*0 


PARTKL  >0*0 
PRTSS  • 0*0 
UPBYU  ■ 0*0 
JMX  - NOMAX/8 
NJMAX8  ■ NOMAX 
NU  ■ a * NJMAX 
GAM  > GAMMA 
FRATIO  ■ 1*0 

IF  (NPRTKL  *EQ*  0)  60  TO  14 

READ  (9*5011)  DIA*  RHOM*  SP*  TEMP*  FREQ*  PARTKL*  CM 
UPBYU  > 8*0  / (!*♦  SORT( l*«e*0*UE/PARTKL>> 

RHOP  > CM  / UPBYU 

GAM  - GAMMA  / (1*0  ♦ 0*68*CM  - 0*68*CM*GAMMA> 

FRATIO  > SQRT( GAMMA  / (GAM  * (1*0  ♦ CM>>> 

N0MAX8  ■ 8*N0MAX 
NU  ■ N0MAX8  ♦ NOMAX 

14  CONTINUE 
C 

VRITE  (6*6001)  UE*  JMX*  GAM 
IF  (NPRTKL  *EQ*  0)  WRITE  (6*6033) 

IF  (NPRTKL  *EQ*  1)  WRITE  (6*6009)  GAMMA 
IF  (NPRTKL  *EQ*  1)  WRITE  (6*6030)  DIA*  CM*  FREQ*  TEMP* 
1 SP*  RHOM*  PARTKL 

WRITE  (6*6008) 

C 

C INPUT  OF  DESCRIPTION  OF  SERIES  EXPANSION* 

DO  10  K ■ 1*  OHX 

READ  (9*5008)  NO*  L(NO)*  NAME(NO) 

WRITE  (6*6003)  NAME(NO)*  NO*  L(NO) 

10  CONTINUE 
C 

WRITE  (6*6010) 

DO  15  K ■ 1*  OMX 

READ  (9*5010)  J*  YNOZ(O)*  B(0) 

WRITE  (6*6015)  0*  YN0Z(0)«  B(0) 

NO  ■ (8  • J)  • 1 
YR(NO)  - REAL(YN0Z(0)) 

Y1 (NO)  ■ AINAG(YN0Z(0)) 

YR(N0«1)  ■ YR(NO) 

YKNJ^l)  • YKNJ) 

15  OONnNUE 
C 
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ZERO  LINEAR  COEFFICIENT  ARRAYS* 

DO  80  KC  ■ 1«  3 
DO  80  NJ  ■ 1*  MAXMD8 
DO  80  NP  > I«  MAXHDA 
CP(KC«NJ«NP>  ■ 0*0 
80  CONTINUE 

ZERO  NONLINEAR  COEFFICIENT  ARRAY. 

DO  30  NJ  > I«  HAXMD8 
DO  30  NPQ  - 1*  MAXMDD 
D<NJ«NPQ>  >0*0 
30  CONTINUE 

INPUT  OF  LINEAR  COEFFICIENTS* 

DO  40  KC  > I«  3 
READ  (9>5003>  KMAX 

IF  (NOUTCF  *GT*  0>  WRITE  (6«6004>  KC«  KMAX 
IF  (KMAX  *EQ*  0>  00  TO  40 

DO  45  K * I#  KMAX 

READ  (9# 5004)  NJ*  NP*  CP(KC*NJ*NP> 

IF  (NOUTCF  *0T*  0>  WRITE  (6*6005)  KC*  NJ*  NP*  CP(KC*NJ*NP) 

45  CONTINUE 
40  CONTINUE 

DO  305  KC  - 4*  5 
READ  (9*5003)  KMAX 
KCMIN3  B KC  * 3 

IF  (NOUTCF  *6T*  0)  WRITE  (6*6031)  KCMIN3*  KMAX 
IF  (KMAX  *EQ*  0)  GO  TO  305 
DO  310  K ■ 1*  KMAX 

READ  (9*  5004)  NJ*  NP*  E(NJ*NP*KCMIN3) 

IF  (NOUTCF  *GT*  0)  WRITE  (6*6038)  NJ*  NP*  KCHIN3*  E(NJ*NP*KCMIN3) 
310  CONTINUE 
305  CONTINUE 

DO  1040  KC  ■ 1*  8 
READ  (9  * 5003)  KMAXPR 

IF  (NOUTCF  *GT*  0)  WRITE  (6*6036)  KMAXPR 

IF  (KMAXPR  *EQ*  0)  GO  TO  1040 

DO  1048  K ■ 1*  KMAXPR 

READ  (9*5004)  NJ*  NP*  CPPAR(KC*NJ*NP) 

IF  (NOUTCF  *GT*  0)  WRITE  (6*6037)  NJ*  NP*  CPPAR(KC*NJ*NP) 

1048  CONTINUE 
1040  CONTINUE 

INPUT  OF  NONLINEAR  COEFFICIENTS* 

READ  (9*5003)  NLMAX 

IF  (NOUTCF  *EQ*  8)  WRITE  (6*6006)  NLMAX 
IF  (NLMAX  *EG*  0)  GO  TO  50 
DO  58  NJ  ■ 1*  MAXMD8 
KPGMAX(NJ)  - 0 
58  CONTINUE 
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DO  55  K - I*  NU4AX 

READ  (9«5005>  NJ«  NP«  NQ«  DT 

IF  (NOUTCF  .EQ.  2)  WRITE  (6«6007>  NJ«  NP«  NCU  DT 
KPQHAXCNJ)  - KPQHAX(NJ)  ♦ 1 
KPQ  - KPCMAX<NJ> 

IDP<NJ«KPQ)  ■ NP 
1DQ(NJ«KPQ>  - NO 
D<NJ*KPQ>  ■ DT 

55  CONTINUE 
50  CONTINUE 

*************  PRESSURE  COEFFICIENT  SECTION  **«**4i**«*** 

CALCULATE  SPATIAL  COORDINATES  FOR  PRESSURE  COMPUTAHON. 

Z( 1)  • 0*0 

zee)  ■ ZE 

Z(3>  ■ 0*5  « ZE 

CALCULATE  COEFFICIENTS  FOR  PRESSURE  TIME  HISTORIES* 

DO  53  NPRES  > I#  3 
DO  S3  J ■ I«  JMX 
NP  > <e  * J>  • 1 
ZI  ■ Z(NPRES) 

CALL  PHICFS<J#Z1*CI*C3> 

CFT(NPRES«NP>  - REAL! Cl) 

CF T< NPRES* NP^  1)  • -AIMAa(Cl) 

CFZ(NPRES*NP)  - REALCC3) 

CFZCNPRES«NP»  I)  - <*AIMAG(C3) 

53  CONTINUE 

OUTPUT  OF  COEFFICIENTS  FOR  PRESSURE  TIME  HISTORIES* 
WRITE  <6* 6020) 

00  56  NPRES  > 1*  3 
WRITE  (6*6014) 

DO  56  J • I*  NJMAX 

WRITE  (6*6021)  J*  Z(NPRES)*  CFT(NPRES* J>*  CFZ(NPRES*J> 

56  CONTINUE 

0**00000*0*00  data  input  SECTION  ****0***********0*0*0*i 

READ  (5*5000)  TITLE 

ZERO  INITIAL  VALUE  AND  FREQUDiCY  ARRAYS* 

5 DO  57  K ■ I*  NJMAXe 
AS(K>  • 0*0 
AC(K)  - 0*0 
FRQI(K)  ■ 0*0 

57  CONTINUE 
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C READ  COMBUSTION  AND  CONTROL  PARAMETERS- 

READ  (5*5006)  H*  TSTART*  TQUI T*  FREQ*  BCOMB 
IF  (E0F(5>>  300*  1 
1 CONTINUE 

READ  (5*5013)  A2PARA*  B2PARA*  EN*  OMEGA 
WRITE  (6*6034)  A2PARA*  B2PARA*  EN*  OMEGA 
DO  46  K • 1*  JMX 
OMEQAK  ■ OMEGA  * K 

CALL  RESPNS( EN*  A2PARA*  B2PARA*  OMEGAK*  CRES) 

RES(K)  - CRES 
WRITE  (6*6035)  K*  RES(K) 

46  CONTINUE 

READ  CONTROL  NUMBERS* 

READ  (5*5006)  NLOC*  NTERMS*  NOUT*  NCOMB*  NNPRT 
IF  (NOUT  *GT*  0)  NPT  ■ 1 
IF  (NOOMB  *EQ*  0)  WRITE  (6*6039) 

IF  (NCOMB  *EQ*  1)  WRITE  (6*6040)  BCOMB 
IF  (NNPRT  *EQ*  0)  WRITE  (6*6041) 

IF  (NNPRT  *EQ*  0)  GO  TO  11 
READ  (5*5013)  REFPRS*  CPQAS*  CNLP 
Vise  - 8*834  * 0*00001  * ( TEMP/ 348 5* >440*66 
REYN  ■ ((0*00010655765  4 GAM  4 REFPRS  4 DIA)  / (VI  SC 
1 4 SQRT( ( GAM* 1 * 0)  4 CPGAS  4 TEMP)))  44(2. /3.)  / 6*0 

WRITE  (6*6038)  REFPRS*  CPGAS*  REYN 
11  CONTINUE 


IF  (NOUT  *EQ*  0)  GO  TO  9 
READ  DATA  FOR  SETTING  UP  PLOTS* 

READ  (5*5009)  YHl*  YLAB*  ITICY 
READ  (5*5014)  MDPLOT 
MDPLTL  > 0 
DO  320  K ■ 1*  JMX 
320  MDPLTL  - MDPLTL  ♦ MDPLOT(K) 

IF  (MDPLTL  *EQ*  0)  GO  TO  9 

READ  (5*5015)  YHIMD*  YLABMD*  ITICMD 

YLOND  • - YHIMD 

****«***«••*  INITIAL  AMPLITUDES  SECTION  4 

9 DO  54  K ■ 1*  NTEmS 

INPUT  INITIAL  AMPLITUDES  FOR  F*FUNCT10NS* 
READ  (5*5007)  J*  AST*  ACT 
NJ  ■ (2  4 J>  • 1 

AS(NJ)  > AST 
AC(NJ)  ■ ACT 


CALCULATE  FREQUENCY* 

AX  > L(J)  4 PI  4 FRATIO/ZE 
FRQKNJ)  • AX 
FRQKNJ4  1)  > FRQKNJ) 
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C CALCULATE  INITIAL  AMPLITUDES  FOR  O-FUNCTIONS* 

C 

IF  (FRQKNJ))  56#  58»  561 
581  QYRU  ■ GAHMA*YR<NJ)*UE 

6YIF  ■ GAMHA*YI(NJ>«FRQ1(NJ) 

GYRF  ■ 6AMMA*YR(NJ>*FRQ1<NJ) 

GYIU  • GAMMA*YI  (NJ>4iUE 
C 

NPRBs  - a 

C 

A1  ■ (1*0  ♦ GYRU>*CFZ(NPRES«NJ^  1) 

I - GYIF*CFT(NPRES«NJ«1> 

A£  - GYRF*CFT<NPRES«NJ4>1)  ♦ GYI  U*CFZ(NPRES»NJ«>  I ) 

A3  - -<1*0  ♦ GYRU>*CFZ(NPRES«NJ>  ♦ GYIF*CFT(NPRES«NJ> 
A4  • GYRF*CFT(NPRES<NJ>  ♦ GYI  U*CFZ(NPRES»NJ> 

C 

DET  ■ AI*AI  ♦ A2«A8 

IF  <DET  •LT*  0* 0000001)  GO  TO  563 

RI  • A3*AC(NJ)  - A4*AS<NJ> 

RG  ■ -AAHACINJ)  > A3*AS(NJ> 

C 

AC(NJ^I)  > (R14A1  ♦ Ra*Aa>/DET 
AS(NJ^l)  > -(Re«Al  - Rl*Ae>/DET 
GO  TO  58 

583  ACINUS 1>  > -AS<NJ) 

ASCNJ^l)  > AC<NJ> 

C 

56  CONTINUE 

IF  (NPRTKL  •EG*  0)  GO  TO  54 
AS(NJ^NJMAX)  - ASCNJ) 

ACCNJ^NJHAX)  > AC(NJ) 

ASCNJ^  t^NJMAX)  - AS<NJ«>1) 

ACCNJ^l^NJMAX)  • AC(NJ«1> 

54  CONTINUE 
C 
C 

C OUTPUT  OF  INITIAL  AMPLITUDES* 

WRITE  C«*6016> 

DO  590  J > 1«  NUMAX 
IF  CASCJ))  59  1*  59  8*  591 
598  IF  (AC(J>>  591*  590*  591 

591  WRITE  (6*6017)  J*  FRQl(J)*  AC(J)*  AS(J) 

590  CONTINUE 

IF  (NOUT  *GE*  1)  WRITE  (6*6087) 

C 

C ««•«••*•«*••*  LINEAR  COEFFICIENTS  SECTION  **••••*•••*< 

C 

DO  59  KC  > 1*  3 
DO  59  NJ  • 1*  MAXMD8 
KFMAX(KC*NJ)  ■ 0 
59  CONTINUE 
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DO  315  KC  - 1#  2 
DO  315  NJ  ■ It  HAXMD2 
DO  315  NP  ■ 1*  HAXMD4 
C(KC«NJ«NP>  - 0*0 

315  CONTINUE 

ir  (NNPRT  *EQ.  0>  00  TO  410 
UHINUP  • UE  * (1*0  - UPBYU) 

IF  (IMINUP  .LT.  0*0000001 > GO  TO  410 
PRTSS  - 0*6  * REYN  * IMINUP  4>*(2./3*) 

CNNPRT  • PARTKt  * REYN  * CNLP 
410  CONTINUE 

COMPUTE  LINEAR  COEFFICIENTS  FOR  6IUEM  VALUES  OF 
HC  AND  RESPONSE  FUNCTION* 

DO  60  NJ  > It  NJHAX 
DO  60  NP  > It  NJMAX2 
CT  ■ CP(  1«NJ«NP> 

IF  (CT)  61«  62»  61 

61  KPMAX(1«NJ>  > KPHAX(1«NJ>  ♦ 1 
KP  - KPMAXC  1«NJ> 

IC(1*NJ«KP)  > NP 

C( 1*NJ«KP>  ■ CT 

62  CONTINUE 

IF  (NP  *QT*  NJMAX  *0R*  NJ  *0T*  NJHAX)  GO  TO  316 

NPie  • (NF»l)/2 

RESR  - REAL  (RES(NP12)) 

RESl  • AINAG  (RES(NP12)) 

CT  ■ CP(2*NJ«NP)  ♦ PARTKL  * ( 1*0  ♦ PRTSS)  * CP(3*NJ«NP) 
1 ♦ HC4RESR*E(NJ«NP«  1)  ♦ HC*RESI«E(NJ«NP#  2) 

GO  TO  318 

316  CONTINUE 

CT  - CP(2*NJ*NP)  ♦ PARTKL  * (1*0  ♦ PRTSS)  * CP(3«NJ«NP) 
318  CONTINUE 

IF(CT)  63«  60«  63 

63  KPMAX(2«NJ)  ■ KPMAX(2«NJ)  ♦ 1 
KP  • KPMAX(2«NJ) 

IC(2*NJ*KP)  - NP 
C(2«NJ«KP)  > CT 

60  CONTINUE 

IF  (NPRTKL  *E0*  0)  GO  TO  415 
DO  420  NJ  > it  NJMAX 
DO  420  NP  > It  NJMAX2 
CPAR(NJ«NP)  ■ CPPAR(  1«NJ«NP)  ♦ 

1 PARTKL  * (1*0  ♦ PRTSS)  * CPPAR(  2«NJ«NP) 

420  CONTINUE 
415  CONTINUE 
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*****««4i*****  INITIAL  VALUES  SECTION 

NSTEP  - 0 
NPl  • 3 
H6  ■ H/6 
TIME  - 0*0 
1 > NPl 
TI(1>  - TIME 

DO  75  J > U NJMAXe 
JP  - J ♦ NJMAX2 
IF  <AC(J>)  751«  753*  751 
753  IF  (AS(J>)  751*  758*  751 
758  U<I*vl>  - 0*0 

IF  (JP  *07.  NU)  GO  TO  75 
U(I*JP>  • 0*0 
GO  TO  75 

751  ARG  ■ FRQKJ)  * TIME 
FSIN  • S1N(ARG> 

FCOS  > COS(ARG) 

U(I*J>  • AS(J)*FSIN  ♦ AC(J)*FCOS 
IF  (JP  .GT*  NU)  GO  TO  75 

U(1*JP)  - ((AS(J>  * FCOS)  ' (AC(J)  * FSIN))  * FRQKJ) 
75  CONTINUE 

CALCULATE  INITIAL  VALUES  OF  PRESSURE  AND  VELOCITY* 

DO  704  NPRES  - 1*  3 
DO  708  J > t*  NJMAX 
C0EF(1*J)  * CFT(NPRES*J) 

C0EF(8*J)  - CFZ(NPRES*J) 

708  CONTINUE 

DO  703  J • 1*  NU 
Y(J)  ■ U(I*J) 

703  CONTINUE 

UBAR  - UE  * Z( NPRES) 

UMS  • UE 

CALL  PRSVEL(  UBAR*  IMS*  Y*P*VZGAS*VZPAR) 

PRESS! NPRES)  ■ P 

704  CONTINUE 

PRS(I)  > PRESS! NLOC) 

70  CONTINUE 

IF  (NHISTR  *EQ.  0)  VRI TE  (6*6006)  GAM*  UE 
IF  (NHISTR  *EQ.  0)  WRITE  (6*6088) 

**m*mmmmm0m**  INITIALIZE  CONTROL  NUMBERS  *********4i** 

LINE  ■ 8 
K > 0 
MAXNO  - 0 
HAXP  ■ 0 

IF  (NOUT  *EQ*  0)  GO  TO  100 
JPLOT  • 0 
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TMIN  - TSTART 
1MAX  • TSTART  ♦ TDEL 
YLO  ■ -YHl 
C 

C *************  NUMERICAL  CALCULATIONS  SECTION  *«******•««***•**«• 

C 

100  I * NPl 
C 

C RUNGE-KUTTA  INTEGRATION  SCHIME. 

105  NSTEP  ■ 1 - NPl  ♦ (LAST  - NPI>  * K 
RSTEP  - NSTEP 
TIME  - RSTEP  * H 
Tl(l>  > TIME 
DO  180  J • !•  NU 
Y(J>  > U(1*J> 

180  CONTINUE 

CALL  RHS(Y«YP) 

DO  130  J > 1#  NU 
FZ(1«J>  > YP(J) 

130  CONTINUE 

DO  140  II  - 8«4 
DO  144  J > 1«  NU 

UZ(J)  • Y(J)  ♦ AA(11>  * H * FZ(11-1«J> 

144  CONTINUE 

CALL  RHS(UE«YP) 

DO  146  U ■ 1#  NU 
PZ(11#J>  ■ YP(J> 

148  CONTINUE 
140  CONTINUE 

DO  150  J • 1*  NU 

U(I«-1«J>  > Y(J)  ♦ (FZ(  WJ>«8*0*(FZ(8«U>«FZ(3«  J)>  ♦ F2(4«J>>  * H6 
150  CONTINUE 
C 

C CALCULATE  PRESSURE  TIME  HISTORIES* 

DO  154  NPRES  * 1*  3 
DO  158  J ■ 1«  NJMAX 
COEFCUJ)  - CFT(NPRES«J> 

C0EF(8»J}  - CFZ(NPRES«J> 

158  CONTINUE 

UBAR  - UE  * Z(  NPRES) 

UMS  > UE 

CALL  PRSVIL(UBAR«lMS*Y«P«VZOAS«VZPAR> 

PRESS! NPRES)  • P 
154  CONTINUE 

PRS(l)  ■ PRESS(NLOC) 

IF  (K  .EQ.  0)  GO  TO  175 
C 

C DETERMINE  MAXIMUM  AND  MINIMUM  PRESSURE  AT  LOCATION  SPECIFIED 
C BY  NLOC* 

DPL  - PRS(l)  • PRSd'D 
DPS  ■ PRS(l-l)  - PRSCI-8) 
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IF  <DPL«DPS)  173*  173*  173 

173  PNW  - PRS(l«e>  - PRSCl) 

POEN  • 8*0  * <PRSCl-8)  ♦ PRSCl)  - 2.0*PRS<  !•  1 ) > 

IF  CPDEN)  174«  175*  174 

174  PP  ■ PNUH/PDEN 

PA  ■ CPP  - 1.0)  * PP  * 0«5 
PB  • 1.0  - CPP  ♦ PP) 

PC  ■ CPP  ♦ 1*0)  * PP  * 0*5 
MAXP  • MAXP  ♦ 1 

PMAXCHAXP)  - PA*PRSCl-8)  ♦ PB*PRSC1-1)  ♦ PC*PR5<1) 
TIMAXCMAXP)  - TlCI-1)  ♦ PP*H 
IF  CMAXP  .OE.  500)  00  TO  850 

175  CONTINUE 

IF  CTIME  .LT*  TSTART)  00  TO  155 
IF  CNOUT  .EQ.  0)  00  TO  156 

***4i****«4.***  time  history  PLOTTING  SECTION  **♦***♦••••. 
IF  C TMAX  .OT.  TQUIT)  00  TO  156 

IF  CCTIHE  .OT.  TMAX)  *0R.  CJPLOT  .OE*  500))  GO  TO  1000 

JPLOT  - JPLOT  ♦ 1 

FILL  TIME  ARRAY  FOR  PLOTTING* 

TPLOTCJPLOT)  • TIME 

FILL  PRESSURE  ARRAYS  FOR  PLOTTING* 

00  1001  J > 1*3 
YPLOTCJ* JPLOT)  ■ PRESSCJ) 

1001  CONTINUE 


IF  CMDPLTL  *EQ*  0)  00  TO  156 
FILL  MODE  AMPLITUDE  ARRAYS  FOR  PLOTTING* 
DO  388  J • 1*  JHX 
IF  (MDPLOTCJ)  *E0*  0)  60  TO  388 
J18  > 8*J  - 1 
UPLOTCJ* JPLOT)  - UC1*J18) 

388  CONTINUE 

00  TO  156 

OOO  NUM  ■ JPLOT 

PLOT  TIME  HISTORIES* 

D0  1080  NPLOT  - 1*  NOUT 
C 

JPLOT  - 0 
C 


lOA 


oo  oo  ooo  oo 


C ASSIGN  PLOTTING  PARAMETERS* 

YMIN  • YLO 

YMAX  - YHl 

NTXCY  • ITICY 
DELY  ■ YLAB 

ELIMINATE  POINTS  THAT  ARE  OUT  OF  1HE  ORDINATE  RANGE* 

DO  1010  J - 1«  NUM 

IF  (<YPL0T<NPL0T«J>  *LT*  YMIN)  *0R*  CYPLOTINPLOT* J>  *GT*  YMAX>> 
1 GO  TO  1010 
JPLOT  • JPLOT  ♦ 1 
DUMMY  TCJPLOT)  - TPLOT(J) 

DUMMYYC JPLOT)  • YPLOTCNPLOT* J) 

1010  CONTINUE 

IF  (JPLOT  *EQ*  0)  00  TO  1080 

GO  TO  ( 1011*  1014»  1015)#  NFLOT 

PLOT  HEAD- END  PRESSURE* 

1011  CALL  GRAPHS!  I BUF#  518#  4«  JPLOT#  11«NTICY#  WAX#  YMAX*  TMIN#  YMIN# 

1 1TT«1TY1#81#30#DUMMYT«DUMMYY#8*0#DELY#TI  TLE) 

00  TO  1080 

PLOT  NOZZLE  PRESSURE* 

4 CALL  GRAPHS!  IBUF#  518#  4#  JPLOT#  IWNTICY#  1MAX# YMAX#  1H1N#  YMIN# 

1 1 TT#I  TY8#  81#  86#  DIMMYT#  DU4MYY#  8*0#  DELY#  TI 1LE) 

00  TO  1080 


PLOT  PRESSURE  AT  THE  CENTER  !X  ■ 0*5)* 

1015  CALL  GRAPHSUBUF#  518#4#JPL0T#  11#NT1CY#1MAX#YMAX#TM1N#YMIN# 
1 I TT#  I TY  3#  8 1#  35#  DUMMY  T#  DUMMYY#  8*0#  DELY#  Tl  1LE) 

C 


1080  CONTINUE 
C 


00  384  NPLOT  • 1#  JMX 
IF  (MDPLOT! NPLOT)  *EQ*  0)  00  TO 
JPLOT  ■ 0 
DO  386  J183  - 1#  8 
IF  (NPLOT  *EQ*  1)  MT11L!J183)  - 
IF  (NPLOT  *EQ*  8)  MT1TL(J183)  • 
IF  (NPLOT  *EQ*  3)  MTI1L(J183)  • 
IF  (NPLOT  *EQ*  4)  MT11L(J183)  ■ 
IF  (NPLOT  *EQ*  5)  MTITL(J183)  ■ 
IF  (NFLOT  *EQ*  6)  MTI1L(J183)  - 
386  CONTINUE 

00  386  J ■ 1#  NUM 
IF  ((UPLOT(NPLOT#J)  *LT*  YLOMD) 
1 *GT*  YHIMD))  00  TO  386 

JPLOT  ■ JPLOT  ♦ 1 
OltWYT(JPLOT)  - TPLOT(J) 
OUMMYY(JPLOT)  > UPLOT(NPLOT# J) 
386  CONTINUE 


384 


MTITLKJ183) 
MT1TL8(J183) 
MT1TL3(J183) 
MTITL4(J183) 
MTI1L5(J183) 
MTl  TL6(Ji83> 


*0R*  (UPLOT(NPLOT#J) 
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tr  (JPLOT  «CQ.  0)  ao  to  384 

CALL  QRAPHS<lBUr*918«4«JPL0T*  1 1«  1 T1  CMD*  TMAX*  YHIMD*  1MIN« 

I YLOMD*  1 TT«HTI  TL*  81«  eO«  OIMMYT*  DUMHYY*  8<0*  YLAEMD»  T1 1LE> 

384  CONTINUE 

REASSIGN  PLOTTING  PARAHETERS  FOR  NEXT  SET  OP  PLOTS* 

JPLOT  - 0 

1M1N  - TMAX 

1MAX  - TMAX  ♦ TOIL 

*«*«******«*4i  time  HISTORY  PRINTED  OUTPUT  SECTION  ♦**•***♦****♦*♦1 

156  IP  (NHISTR  *BQ*  0> 

1 WRITE  (6*6011)  NSTEP*  TIME*  (PRESS! J>*  J ■ 1*3>*  V2GAS*  VZPAR 
LINE  • LINE  ♦ 1 

157  IP  (TIME  *GT*  TQUl  T>  00  TO  850 
IF  (LINE  *LT*  58)  GO  TO  155 

IF  (NHISTR  *EQ*  0)  WRITE  (6*6013) 

IF  (NHISTR  *EQ*  0)  WRITE  (6*6088) 

LINE  > 4 

155  I - I ♦ 1 

IF  (1  *LT*  LAST)  GO  TO  105 
K > K -f  1 

RE-ASSIGN  ARRAYS* 

DO  800  I - 1*  NPl 
ILAST  • LAST  - NPl  *■  1 
PRS(I)  • PRS( ILAST) 

TKl)  • TK ILAST) 

DO  800  J > I*  NU 
U(1*J)  ■ U(  ILAST* J) 

800  CONTINUE 
00  TO  100 


«**•*«•**«***  PRESSURE  MAXIMA  AND  MINIMA  PRINTOUT 

850  WRITE  (6*6083)  Z(NLOO*  MAXP 
LINE  - 4 

DO  855  JST  ■ 1*  MAXP*  8 
JSTART  > JST 
JSTOP  ■ JST  ♦ 7 

IF  (JSTOP  *0T*  MAXP)  JSTOP  - MAXP 

WRITE  (6*6084)  (FMAX(J>*  J • JSTART*  JSTOP) 

WRITE  (6*6084)  (T1MAX(J>*  J • JSTART*  JSTOP) 

WRITE  (6*6014) 

LINE  - LINE  ♦ 3 

IP  (LINE  *LT*  58)  00  TO  855 

LINE  > 0 

WRITE  (6*6013) 

855  CONTINUE 

CALL  aROWTH(MAXP*TlNAX*PMAX*PREQ) 


106 


ooo  ooooo 
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60  TO  5 
300  CONTINUE 

TURN  OFF  PLOTTING  ROUTINE* 

IF  CNPT  *EQ*  1)  CALL  PL0T(0*0«0*0*999) 

*************  read  FOfMAT  SPECIFICATIONS 


5000 

5001 
500e 
5003 
500A 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5013 

5014 

5015 

5016 


FOntAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FOmAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


C7A10) 

(3F10*0«31  5) 
(81  5»  IX*  A4) 
(81  5) 

(815*F1S*8> 
(31  5*F15*8> 
(7F10*0> 

(I  5*8F10*0) 
(615) 

(aF10*0*15) 

(15*4F18*8) 

(7F15.8) 

(4F10*0) 

(615) 

(8F10*0«I  5> 
(8F10*0> 


WRITE  FORMAT  SPECIFICATIONS 


6001  FORMAT 
1 

6008  FORMAT 

6003  FORMAT 

6004  FORMAT 

6005  FORMAT 

6006  FORMAT 

6007  FORMAT 

6008  FORMAT 
1 

6009  FORMAT 

6010  FORMAT 

6011  FORMAT 

6013  FORMAT 

6014  FORMAT 

6015  FORMAT 

6016  FORMAT 
1 

2 

6017  FORMAT 

6020  FORMAT 
1 

2 

3 

6021  FORMAT 


( 1H1*//*6X*4HUE  -*F6*4«//«6X*  17HNUMBER  OF  MODES  ■« 
12*//*6X*7H6AMMA  ■«F5*2> 

(//////* 6X* 14HNAME  J L/> 

(6X*.A4*21  5) 

(1H0«26H  NUMBER  OF  COEFFICIENTS  C(«  I 1*  10H*NJ*NP>  lS*15/> 
(2X*2HC(«I  1*  1H«*I2«  1H*«I2*4H>  ■ *F10*5) 

(1H0*38H  NUMBER  OF  COEFFICIENTS  D(NJ*NP*NQ)  lS«I5/> 
(2X«2KD(*I2*  1H««I2*  1H**I2*4H)  ■ *F10*5> 

( IHl*  2X*  17HM0T0R  PARAMETERSt  * 1 5X« 

8HGM4MA  « * F4*  2/ lOX*  19HEX1  T MACH  NUMBER  > «F7*5//> 

(/*6X*  10HGM1MABAR  -fFO.G*//) 

( lHO*////«  6X«  IHJ*  7X«  2HYR*8X*  2HYI*7X*  3HEPS*  7X*  3HETA//) 

(2X*1  5#F18*5«  5F88*5> 

( IHl) 

(IH  > 

(2X*1  5*4F10*5) 

( IHl*///*  1X«36H  INITIAL  CONDITIONS  ARE  OF  THE  FORMl// 
2X«47HU(1«J>  - AC(J)*COS(FREQ*T>  ♦ AS(  J>*SIN(  FREQ*  T) « 
////6X*  1HJ*6X*9HFRE0UEMCY*  10X«  5HAC(  J>*  10X«  SHAS(  J) // > 

(8X«1  5*4F15*8/> 

( 1H1*/*8X«45HC0EFF1C1  ENTS  FOR  COMPUTATION  OF  WALL  PRESSURE* 
lOH  WAVEF0RMS////34X*87HC0EFFIC1EMTS  IN  SERIES  FORt // 
37X*4HTIME*21X*  5HAX1AL/6X*  IHJ*  7X*  IHZ*  19X*  lOHDERlVATI  VE* 

1 5X*  1 OHDERl  VATl  VE//  > 

(8X*1  5*F10*3*  18X*F15*7*  10X*F15*7> 
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6022  FORMAT  ( 3X«  4HSTEP*  8X«  4H  T1HE«  1 5X«  8HPRESSUR&  1 4X«  8HPRESSURE*  1 4X» 

1 8HPRESSURE« 14X*7HQAS  VEL* 1 5X* 7HPAR  VEL« /* 34X* 

2 SHAT  Z-0*0*  14X#8HAT  Z>  1«0*  14X«8HAT  Z-0*  S«  13X« 

3 SHAT  Z«0*5«  14X#8HAT  Z«0*5//> 

6023  FORMAT  (1H1«38H  PRESSURE  MAXIMA  AND  MINIMA  ATI  Z - «F5«2* 

1 /19H  VALUES  COMPUTEDt  «13//> 

6024  FORMAT  ( IH  *7X«8F13«6> 

6027  FORMAT  ( 2X//2X« 33HTHI S RUN  PRODUCES  PLOTTED  OUTPUT* > 

6030  FORMAT  ( ///* 6X*  27HPART1  CLE  DIA  <IN  MICRONS)  • YF5*  1#  lOX* 

1 4HCM  •«F4*2*  10X«  18HFRE0  (IN  HERTZ)  • *F6*I«//« 

2 6X«  26HCHAMBER  TEMP  (IN  DEO  K)  - « F6*  1#  10X«  «1SP 

3 F4*2*  10X«27HRH0M  (IN  KG/CUBIC  METER)  ■ «F6*1#//*6X« 

4 27HPARTICLE  DRAG  CONSTANT*  K -*F8*4«////) 

6031  FORMAT  (1H0*32H  NUMBER  OF  COEFFICIENTS  E(NJ«NP«  **  I 1*  4H)  IS»I5/) 

6032  FORMAT  ( 2X«  2HE(*  1 2*  1H«  « 1 2*  1H« • I 1*  4H)  > «F10*5) 

6033  FORMAT  (/////*  6X«  26HPARTI  CLES  ARE  NOT  PRESENT*//) 

6034  FORMAT  ( IH  !*///«  3X«  22HC0MBUSTI  ON  PARAMETERS!  * SX*  3H A •*F6*3*6X* 

1 3HB  >*F5*3*  5X*4HEN  ■«  F5*  3*  SX*  7H0ME0A  >*F6*3* 

2 //////« 2SX* 1HJ« 16X*4HRESR* 1 SX* 4HRESI  * //) 

6035  FORMAT  ( IHO* 20X* I 5* 10X« FIO* 4*9X« FIO* 4) 

6036  FOfWAT  ( IHO*  47HNUMBER  OF  COEFFICIENTS  IN  PARTICLE  EQUATIONS  IS* 

I 1 5/) 

6037  FORMAT  ( 2X*  5HCPAR(  * 1 2*  IH**  I 2*  4H)  - *FI0*5) 

6038  FORMAT  (//////*  3X*  4IHN0NLINEAR  PARHCLE  DAMPING  IS  CONSIDERED!* 

1 ////*  10X*28HCHAMBER  PRESSURE  (IN  PSD  ■ * F8 * 3* //*  lOX* 

2 46HSPECIFIC  HEAT  OF  GAS  PHASE  (IN  CAL/OM-DEO  K>  >* 

3 F5*3*//*  tOX*7HREYN  • *F8*5) 

6039  FORMAT  ( ///*  3X* 27HLINEAR  COMBUSTION  RESPONSE*) 

6040  FOmAT  (///*3X*30HN0NLINEAR  COMBUSTION  RESPONSE! * SX* 

1 6HBC0MB  • *F6*3) 

6041  FORMAT  (/////*  3X*  24HL1NEAR  PARTICLE  DAMPING*) 

END 
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COMPLEX  FUNCTION  CCOSH(X> 

COMPLEX  X 

CCOSH  - 0*5  * (CEXP(X>  ♦ C£XP(-X>> 

RETURN 

END 


COMPLEX  FUNCTION  CSINH(X) 

COMPLEX  X 

CSINH  - 0*5  * CCEXPCX)  • CEXP(*X>> 

RETURN 

END 


SUBROUTINE  PH1CFS(NP#£«CT«CZ) 

C 

C THIS  SUBROUTINE  COMPUTES  THE  COEFFICIENTS  NEEDED  TO 
C CALCULATE  THE  PRESSURE  PERTURBATION* 

C 

C NP  IS  THE  INDEX  OF  THE  COMPLEX  SERIES  TERM. 

C Z IS  THE  AXIAL  LOCATION* 

C CT  IS  THE  COEFFICIENT  IN  THE  SERIES  FOR  THE  TIME  DERIVATIVE  OF 
C THE  VELOCITY  POTENTIAL* 

C 

C CZ  IS  THE  COEFFICIENT  IN  1HE  SERIES  FOR  THE  AXIAL  DERIVATIVE 
C OF  THE  VELOCITY  POTENTIM.* 

C 

COMPLEX  Cl*  CZ*  B<6>*  CT*  CCOSH*  CSINH 
COMMON  /ELKS/  B 

C 

Cl  - (0*0*l*0> 

CT  ■ CCOSHCCI  * B(NP>  * Z> 

CZ  • Cl  * B(NP>  * CSINHICI  * B(NP>  * Z> 

C 

RETURN 

END 
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SUBROUTINE  PRSVEL(  UBAR«  UM S«  Y « P*  VZ 0 AS«  VZ PAR) 

THIS  SUBROUTINE  COMPUTES  THE  PRESSURE  AND  VELOCITY. 

UBAR  IS  THE  LOCAL  AXIAL  STEADY  STATE  VELOCITY* 

IMS  IS  THE  DERIVATIVE  OF  THE  VELOCITY* 

Y IS  THE  ARRAY  CONTAINING  VALUES  OF  THE  HODE-AMPLl  TUDE 
FUNCTIONS  AND  THEIR  DERIVATIVES* 

P IS  THE  VALUE  OF  THE  PRESSURE  PERTURBATION* 

VZGAS  IS  THE  AXIAL  COMPONENT  OF  VELOCITY  OF  GAS* 

VZPAR  IS  THE  AXIAL  COMPONENT  OF  PARTICLE  VELOCITY* 


DIMENSION  Y(36)«  SUM<5)»  SUMSQCG) 

COMMON  /BLK3/  NPRTKL*  NJMAX*  HLMAX*  GAMMA« 

1 C0EF(8*ie>«  NJMAX8 

COMMON  /BLK4/  CM«  PARTKL*  RHOP 

C 

DO  10  I • 1*  5 
SUM(I>  > 0*0 
10  CONTINUE 
C 

DO  80  J • 1*  NJMAX 
JY  ■ J ♦ NJMAX8 

80  SIM<I>  ■ SlM(l)  ♦ Y(JY)  « C0EF(1«J) 

DO  50  J - 1«  NJMAX 

SUM(8>  > SLM(8>  ♦ Y(J>  * C0EF(8«J> 

SUH(3>  > SIM(3>  ♦ Y(J>  * C0EF(1«J> 

IF  (NPRTKL  *EQ*  0)  GO  TO  SO 
JP  ■ J ♦ NJMAX 

SUM<4>  - SUM(4>  ♦ (Y(J>>Y(JP>)  4 COEF( 1* J) 

SUM(5>  > SIM(5>  ♦ Y<JP)  * C0EF(8«J> 

50  CONTINUE 

PLIN  ■ SUH(l)  ♦ UBAR  * SUM<8)  ♦ UMS  * SUM(  3> 

1 ♦ PARTKL  * RHOP  « SUH(4) 

PNL  > 0*0 

IF  (NLMAX  *EQ*  0>  GO  TO  40 

DO  30  I • 1«  8 

SUMSOII)  > SUM(1>  * SUH(I) 

30  CONTINUE 

PNL  ■ 0*5  * (SUMSQ<8)  - SUMSO(l)) 

C 

40  P • -GAMMA  * (PLIN  ♦ PNL) 

VZGAS  • SUM(8> 

VZPAR  ■ SUM(  5> 

C 

RETURN 

END 
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SUBROUTINE  RHS<U*UP> 


C 


C 


C 


COMPLEX 

RES(6># 

RESNL(6) 

DIMENSION 

U( 36># 

UP(36>#  E<18#18#8> 

COMMON 

1 

C(8#ie#24>#  ixie#i44>#  cp<3#ie#e4># 
KPMAX<3#18>#  lC<8#ie#e4>#  CPPARC  8*  18#  24># 
KPQMAX(18>#  IDP<18#144>#  IDQ(18#144)#  CPAR( 

COMMON 

/ELK  3/ 

NPRTKL#  NJMAX#  NLMAX#  GAMMA# 
C0EF(8#18)#  NJHAX8 

COMMON 

/BLK5/ 

RES#  NCOMB#  BCOMB#  E 

COMMON 

/BLK7/ 

NNPRT#  CNNPRT 

IF  (NPRTKL  •EQ*  0>  60  TO  110 

NJS  • NJMAX  ♦ 1 

DO  116  NJ  ■ NJS#  NJHAXe 

NJPAR  • NJ  - NJMAX 

SLP  > 0*0 

DO  114  KP  - 1#  NJMAX2 

SLP  • SLP  ♦ (CPAR(NJPAR*KP>  * U<KP>> 

114  CONTINUE 

UP(NJ)  • - SLP 
lie  CONTINUE 

IF  (NNPRT  *EQ.  0)  GO  TO  110 

DiFF  • <u(i>  - u<NJS>)*«e  ♦ <u(e>  - u<NJs^i)>**e 

IF  <DIFF  .LT*  0.000000001 > 60  TO  110 

D1FF13  > CNNPRT  * DIFF  **<l./30 

DO  leO  NJ  - NJS#  NJMAXe 

NJPAR  ■ NJ  • NJMAX 

SLNP  >0*0 

DO  185  KP  > 1#  NJMAX8 

SLNP  ■ SLNP  ♦ CPPAR<e#NJPAR#KP)  « D1FF13  * U(KP) 
les  CONTINUE 

UP<NJ>  > UP(NJ)  • SLNP 
lao  CONTINUE 
no  CONTINUE 


IF  <NCOMB  .EQ.  0)  60  TO  116 
JMX  - NJMAX/e 
DO  118  NJ  > 1#  JMX 
NJPLNJ  • e*NJ 
NJ8MN1  « NJPLNJ  • 1 

RCSNL(NJ)  ■ RESCNJ)  « BCOMB  * SORT  ( UPCNJflHNl  >**8^UP(NJPLNJ>**e> 
118  CONTINUE 
116  CONTINUE 

DO  10  NJ  • 1#  NJMAX 
NJP  • NJ  ♦ NJMAX8 
UP<NJ>  • U<NJP) 

SLl  - 0*0 
SL8  • 0*0 
SL3  ■ 0*0 
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SNLl  - 0.0 
SNLC  • 0*0 
MAX  ■ KPMAX(  1«NJ) 

IF  <MAX  .EQ.  0>  00  TO  85 
DO  80  KP  > 1«  MAX 
NP  • ICC  1*NJ«KP) 

SLl  ■ SLl  ♦ (C(1«NJ«KP>  * U(NP>) 

80  CONTINUE 

85  MAX  > KPMAX(8«NJ) 

IF  CHAX  .EQ.  0>  GO  TO  45 
00  30  KP  • I*  MAX 
NP  > IC(8«NJ«KP> 

SL8  - SL8  ♦ (C(8«NJ*KP)  * UP(NP>> 

30  CONTINUE 

45  IF  CNLMAX  .EQ.  0>  GO  TO  55 
MAX  > KPQHAXCNJ) 

IF  CMAX  .EQ.  0>  GO  TO  55 
DO  50  KPQ  - I,  MAX 
NP  > IDPCNJ*KPQ> 

NQP  - IDQ(NJ«KPQ)  ♦ NJMAX8 

SNLl  • SNLl  ♦ (DCN«J«KPQ>  * UCNP)  * U(NQP>> 

50  CONTINUE 
55  CONTINUE 

IF  (NCOMB  .EQ.  0>  GO  TO  65 
DO  60  KP  > 1»  NJMAX 
KP18  ■ (KP^l>/8 

SNLC  - SNLC  ♦ <REAL(RESNLCKPI8>>  * E<NJ*KP«  1>  ♦ 

1 A1MA0<RESNL(KPI8)>  * E(NJ«KP«8>>  * UPCKP) 

60  CONTINUE 

65  UPCNJP)  ■ -CSLl  ♦ SL8  ♦ SNLl  ♦ SNLC) 

10  CONTINUE 

IF  (NNPRT  .EQ.  0)  RETURN 
IF  (DIFF  .LT.  0.000000001)  RETURN 
D1FF13  > CNNPRT  * DIFF  «*(l./3.) 

DO  140  NJ  - U NJMAX 
NJP  > NJ  ♦ NJMAX8 
SLNP  ■ 0.0 

DO  145  KP  • l»  NJHAX8 

SLNP  • SLNP  ♦ DIFF  13  * CPC3«NJ«KP)  * UPCKP) 

145  CONTINUE 

UPCNJP)  - UPCNJP)  - SLNP 
140  CONTINUE 

RETURN 

END 
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SUBROUTINE  RESPNS  < EN«  A«  B« OMEGA*  RES) 

COMPLEX  RES*  LAMBDA 

C « (UO  ♦ 16«*OMEGA«OMEGA>**0*5 

Cl  ■ 0*5  * (1*0  ♦ ((C^l*0>/e*0)**0*5> 

C2  ■ 0*5  * <(C-l«0>/8*0)**0*5 
LAMBDA  - CMPLX(C1*C8> 

RES  ■ (EN*A*B>  / (LAMBDA  ♦ A/LAMBDA  -(|•0♦A>  ♦ A*B> 

RETURN 

END 
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SUBRO  UTI N E GRAPH  S(  I BUF«  NLOC*  L DEV*  N TO T* N T1  CX*  N TI  CY « 

1 XMAX*YMAX*XM1N*YMIN*  I Tl  ILX*  I Tl  Tl.Y*LTI  TLX*  LTI  TLY*  X ARRAY* 

2 YARRAY*  DELX*  DELY*  TI  TLE> 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IDENTIFIER 


MEANING 


IBUFt  ADDRESS  OF  BUFFER  AREA  FOR  PLOT  OUTPUT 
NLOCi  NUMBER  OF  LOCATIONS  IN  BUFFER  AREA 
LDEVt  LOGICAL  DEVICE  NUMBER  FOR  PLOT 
NTOTI  NIMBER  OF  POINTS  TO  BE  PLOTTED 
NTICXt  NUMBER  OF  TIC  MARKS  ON  ABSCISSA  (>  OR  - 
NTICYt  NUMBER  OF  TIC  MARKS  ON  ORDINATE  (>  OR  > 
XMAXt  UPPER  LIMIT  OF  ABSCISSA  DOMAIN 
YMAXI  UPPER  LIMIT  OF  ORDINATE  RANGE 
XMINt  LOVER  LIMIT  OF  ABSCISSA  DOMAIN 
YMINt  LOVER  LIMIT  OF  ORDINATE  RANGE 
ITITLXt  ABSCISSA  LABEL 
ITITLYt  ORDINATE  LABEL 

LTITLXI  NUMBER  OF  CHARACTERS  IN  I TI  TLX 
LTITLYt  NUMBER  OF  CHARACTERS  IN  I TI  TLY 
XARRAYl  ABSCISSA  POINTS  IN  TEfMS  OF  XMIN  - XHAX 
YARRAYt  ORDINATE  POINTS  IN  TERMS  OF  YMIN  - YMAX 
DELXt  INTERVALS  OF  ABSCISSA  TIC  MARK  LABELING 
IN  TERMS  OF  XMIN  - XMAX  COORDINATES 
DELYI  INTERVALS  OF  ORDINATE  TIC  HARK  LABELING 
IN  TERMS  OF  YMIN  - YMAX  COORDINATES 
TITLEl  LABEL  FOR  THE  VHOLE  RUN 


TYPE 


INTEGER 
IN  TEGER 
INTEGER 
INTEGER 
S>  INTEGER 

B)  INTEGER 

REAL 
REAL 
REAL 
REAL 

FI  EL  DATA  ARRAY 
FI  EL  DATA  ARRAY 
INTEGER 
INTEGER 

COORD*'S  REAL  ARRAY 
COORD** S REAL  ARRAY 

REAL 

REAL 

FIELDATA  ARRAY 


DIMENSION  IBUF(NLOO*XARRAY<NTOT)*YARRAY(NTOT>*ITITLX(  1>* 

1 ITITLYt  I)*YDIT(  100) 

DIMENSION  TITLE(l) 

REAL  LEFHAR*LABSEP 

COMMON  /ELK6/HEI GHT*  J*  INTEO*  ABSCI  S«  ORDINA*  I CODE*  TOPMAR*  BO  THAR* 

1 LEFMAR*  RYTMAR*  FACT*MAXI  S«MLINE*  TI  CKLE*  STARTL*  SEILAB* 

e SYHELH*LABSEP*ASTART*YDIT*nOTFAC 


FIXED  BASIC  PARAMETERS 


DATA  J/1/ 

DATA  HEIGHT/.  105/ 
DATA  INTEO/ 1/ 

DATA  ABSCI S/7. 5/ 
DATA  ORDINA/4.5/ 
DATA  I CODE/  - 1/ 
DATA  TOPMAR/ 1.6/ 
DATA  BOTNAR/ 2. 4/ 
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DATA  LEPMAR/1.9/ 

DATA  RY  THAR/ 1.6/ 

DATA  FACT/l./ 

DATA  HAXlS/1/ 

DATA  MLINC/1/ 

C 

r* 

V 

C 19  INITIAL  COMPUTATION  OF  DERIVED  PARM<ETERS 

C AND  INITIAL  PLOTS  CALL 

C 20  SKIPS  PRELIMINARIES  FOR  2ND  AND  SUBSEQUENT  CALLS 
C 

C 

IF  CJ  .QT.  1>  00  TO  20 
19  YDIT(l)  - 3./ 19. 

TICKLE  ■ HElOHT/2. 

ROTFAC  - - 11.0/14.0  * HEIGHT 

STARTL  > 6 • HEIGHT  ♦ ROTFAC  ♦ TICKLE 

SEPLAB  ■ STARTL  ♦ 1.5  « HEIGHT 

SYMBLH  ■ 0.070 

LABSEP  > 4.  * HEIGHT 

ASTART  ■ 2.  * HEIGHT 

LEFMAR  • LEFMAR  ♦ 0*5 

RY1MAR  - RY1MAR  -0.5 

DO  1 1 - 2#  100 

1 YDIT(l)  • YD1T<1  - 1>  ♦ <2  A M0D<I«2>  ♦ D/19. 

YDlTdOO)  - YDIT(IOO)  ♦ .5 

CALL  PL0TS(1BUF«NL0C#LDEV#00) 

CALL  FACTORd.) 

J • 2 

CALL  SYMBOL  (HE1GHT.36  * HEIGHT  ♦ 5.  5.  HEI GHT.  T1  TLE«  270.«  70> 
CALL  PLOTd.«  0.0«  - 3> 

3 DO  2 1 ■ 1*  100 

2 CALL  PL0T<0.«YDIT(I  >#3  - M0D(1«2>> 

DO  33  1 - I« 100 

33  YDlT(l)  - YDIT(l)  - ABSCl  S - RY1MAR 

C 

C 

C RESET  ORIGIN 

C 

C — — — 

XPAGE  ■ BOTMAR  ♦ ORDINA 
GO  TO  2019 

20  XPAGE  - B01MAR  ♦ ORDINA  ♦ TOPMAR 

2019  CALL  VHERE<RXPAOE*RYPAGE*FACT> 

YPAOE  ■ RYPAQE  • LEFMAR 
CALL  PLOT( XPAGE* YPAOE#  • 3) 

CALL  FACTORCFACT) 


DRAV  AXES  AND  LABELING  MAXIS  TIMES 


iOO 


DO  IOO  1 - WMAXIS 

CALL  MYAXI  SCNTI  CX.NTI  CY*  I TI  TLX*  1 TI  TLY*  XMAX*  YMAX*  XMI N*  YMIN* 
I LTl  TLX«LTI  1LY*  DELX*  DELY) 

C 

C 

C DRAW  POINTS*  OPTIONAL  CENTERLINE* AND  PAGE  SCISSORLINE 

C MLINE  TIMES 

C 

C -- 

DO  800  I - 1*MLINE 

800  CALL  HYLINE(XARRAY*YARRAY*XMAX*YHAX*XMIN*YM1N*NT0T*NTICY> 
RETURN 
END 


SUBROUTINE  MYAXI  S<NT1  CX*NTI  CY*  I TI  TLX*  I TI  H*Y*XMAX*  YMAX*XMIN*  YMIN* 

1 L TI  TLX*  L TI  TLY*  DELX*  DELY  ) 

COMMON  /BLK6/HEI GHT*  J*  INTEQ*  ABSCI  S*  ORDINA*  I CODE*  TOmAR*  BO  TMAR* 

I LEFMAR*  RY1MAR*FACT*MAXI  S*MLINE*  TICKLE*  STARTL*  SEPLAB* 

8 5YHBLH*LABSEP*ASTART*YDIT*R0TFAC 

REAL  LABSEP*LEFMAR 

DIMENSION  ITITLX(  1)*ITI  1LY(  I)*YDIT(  100) 

STARTL  • 6 * HEIGHT  ♦ ROTFAC  TICKLE 
IMAX  ■ IFIXCCYMAX  - YMIN)/DELY  ♦ 0*5) 

TICSEP  - ORDlNA/(  lABS(NTICY)  - I> 

CALL  DENDEC(YMAX«DELY*NDEC> 

K ■ I 

N - <1ABS(NT1CY)/IMAX)  • I ♦ MOD<  1 ABStNTl CY) • 8) 

IMAXl  - IMAX  ♦ 1 
DO  9 ILOOP  - I*  IMAXl 
I - ILOOP  - 1 
NNDEC  « 0 

IF  <K  *NE.  1)  GO  TO  18 
11  1F<8  * I.LT*1MAX>G0  TO  18 

CALL  AXLAB(0**IT1TLY*LT1TLY) 

K * 8 

18  FPN  - YHAX  - 1 * DELY 

IF  <NDEC  *LT*  0 *AND*  ABS(FPN)  *LT*  0*5)  FPN  ■ 0*0 

IF  (NDEC  *0T.  0 .AND*  ABS(FPN)  *LT.  5.0*  10. 0**(-NDEC>  1 > ) FPN  ■ 0*0 

TMID  • 1* 

XPAGE  - - I * ORDINA/IMAX  • .5  * HEIGHT 

1F(  FPN)  113*  188*  116 

113  IFCNDEC  - 8)115*114*118 

114  YPAOE  - STARTL 

GO  TO  118 

115  IFCNDEC  - 1)117*116*118 

116  YPAGE  - STARTL  • HEIGHT 

GO  TO  118 

117  1F<ABS<FPN)  • 100.)  119*  116*  116 
119  IF<ABS<FPN)  - 10.)  180*  181*  181 
180  YPAGE  - STARTL  - 3 * HEIGHT 

GO  TO  118 


116 


lei  yPAGE  - STARTL  ~ 2 * HEIGHT 
60  TO  lie 

122  YPAGE  - STARTL  - 4 * HEIGHT 
GO  TO  112 

118  1F(NDEC  • 2) 123« 1 16« 112 

123  IFCNDEC  - 1 ) 125*  124«  1 12 

124  IFCFPN  > 10*> 121* 1 16* 1 16 

125  1F(FPN  • 10* > 122* 120* 126 

126  IFCFPN  - 100«) 120* 121* 127 

127  IFCFPN  - 1000* ) 121* 116* 128 

128  1F(FPN  - 10000*)  1 16*  1 14*  1 14 
112  NNDEC  • -1 

IF  (FPN  *NE*  0*0)  NNDEC  ■ NDEC 

CALL  NUMBER(XPAGE*YPAGE*HE16HT*FPN*  270**NNDEC) 

XPAGE  - - 1 4 (ORDINA/lMAX) 

DO  10  JJ  • 1*N 

YPAGE  - TICKLE  4 1MID 

CALL  PLOT( XPAGE* YPAGE*  3) 

YPAGE  - YPAGE  4 ( • 1 ♦ I/IHAX  4 .5) 

CALL  PLOT< XPAGE*  YPAGE*  2) 

IF(I/1MAX)  110*  110*9 
110  YPAGE  - 0 

CALL  PLOTCXPAGE*  YPAGE*  3> 

XPAGE  - XPAGE  - TICSEP 
CALL  PLOTCXPAGE*  YPAGE*  2) 

TMID  ■ *5 
10  CONTINUE 

9 CONTINUE 

K - 1 

IMAX  - IFIX((XMAX-XMIN)/DELX  ♦ 0*5) 

TICSEP  ■ ABSCIS/CNTICX  - 1) 

XPAGE  ■ • ASTART  - ORDINA 

CALL  DENDEC(XHAX*DELX*NDEC> 

IMAXI  > IHAX  4 1 
DO  28  ILOOP  - 1*  IHAXl 
I ■ ILOOP  - 1 
NNDEC  - 0 

STARTL  « >14  ABSCIS/IHAX 

IF  CK  «GT*  1)  GO  TO  25 

24  IFC2  4 l.LT*IHAX>00  TO  25 
CALL  AXLAB(270**ITITLX*LTITLX) 

K • 2 

XPAGE  ■ - ASTART  - ORDINA 

25  FPN  - XMIN  414  DELX 

IF  (NDEC  *LT*  0 *AND*  ABSCFPN)  *LT*  0*5)  FPN  - 0*0 

IF  (NDEC  *GT*  0 *AND*  ABS(FPN)  *LT*  5*04 10*044(-NDEC>  1) ) FPN  ■ 0*0 

1F(  FPN>813*822*818 

813  IFCNDEC  - 2)815*814*23 

814  YPAGE  - STARTL  4 16*/7*  4 HEIGHT 
GO  TO  23 
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SIS  1F(NDEC  • l>817«816«e3 

816  YPA6E  - STARTL  ♦ 25*/ 14*  * HEIGHT 
GO  TO  23 

817  IFCABSCFPN)  > 100*  >8  19«  8 16«  8 16 

819  IF(ABS(FPN>  • 10*>820«821«821 

820  YPAQE  ■ STARIL  ♦ 11*/ 14*  * HEIGHT 
GO  TO  23 

821  YPAGE  - STARTL  ♦ 9*/7«  * HEIGHT 
GO  TO  23 

822  YPAGE  - STARTL  ♦ 2*/7.  * HEIGHT 
GO  TO  23 

818  IFCNDEC  • 2>823«8I6«23 

823  IFCNDEC  - 1>825«824«23 

824  IFCFPN  - 10*)82l«816*816 

825  1F(FPN  - 10.>828«820«826 

826  IFCFPN  - 100*)820«82t«827 

827  IFCFPN  - I000*>821«816»888 

828  IFCFPN  - I0000«>816*814*814 

23  NNDEC  ■ -I 

IF  CFPN  .NE.  0*0)  NNDEC  > NDEC 
28  CALL  NIMBERCXPAGE«YPAGE*HE1GHT«FPN«270**NNDEC> 
N ■ CNTICnC/IMAX)  - 1 ♦ M0DCNT1CX«2> 

IMAXl  > IMAX  ♦ 1 
DO  26  ILOOP  - I«  IMAXl 
1 ■ IMAXl  - ILOOP 
TMID  ■ !• 

YPAGE  ■ - 1 * ABSCIS/IMAX 

00  27  JJ  ■ 1«N 

XPAOE  • - ORDINA  • TICKLE  * TMID 

CALL  PL0TCXPAGE«YPA0E«3) 

XPAOE  - XPAGE  ♦ 2«0*T1CKLB*1MID 
CALL  PL0TCXPAGE«YPAGE«2> 

IF  Cl  •EO*  0)  GO  TO  26 
111  XPAGE  • - ORDINA 

CALL  PL0TCXPAGE«YPA0E«3> 

YPAGE  ■ YPAGE  ♦ TICSEP 
CALL  PL0TCXPAGE«YPAGE«2> 

1M1D  > *5 
27  CONTINUE 
26  CONTINUE 
RETURN 
END 
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SUBROUTINE  MYLl  NE(  XARRAY*  YARRAY* XMAX*  YHAX>XM1  N«  YHIN* NTOT«N  T1  CY) 
COMMON  /BLK6/HE1GHT*  J*  1NTE0»  ABSCI  S«  ORDINA#  1 CODE*  TDFMAH*  BOTMAR* 

1 tErMAR*RY‘IMAR*FACT«MAXlS*MLINE«TICXLE*STARTL*  SEFLAB* 

2 SYMBLH*LABSEP«  ASTART*YDI  T«nOTFAC 

REAL  LEFMAR*LABSCP 

DIMENSION  XARRAY(NTOT>«  YARRAY(NTOT) « YDIT(IOO) 

ITOP  - 1F1X((ABSC1S  ♦ RY1MAR  ♦ 0«5)«9«0  ♦ 0*5) 

IBOT  - IFIX<RYTMAR*9>0  ♦ 0*5) 

DO  17  1 • UNTOT 

XPAOC  - (YARRAY(I)  > YMAX)/<YMAX  - YMIN)  * ORDINA 
YPAOE  - (XMIN  - XARRAYd  >>/(XMAX  - XMIN)  * ABSCl  S 
CALL  SYMBOLIXPAGE*  YPAOE*  SYMELH*  INTEQ*  270**  I CODE) 

IF(NT1CY.GE*0>00  TO  BS 
XPAGE  - - ORDlNA/2* 

YPAOE  • • ABSCl S 

CALL  PLOT! XPAGE*  YPAOE*  3) 

DO  18  1 - IBOT* I TOP 

CALL  PL0T<XPA0E*YD1T(I)*3  - M0D(I*2>> 

XPAGE  - TOPMAR 

YPAOE  - - ABSCl  S - RY1MAR  - .5 

CALI  PLOT(  XPAGE*  YPAOE*  3) 

DO  <il  1 > 1*  100 

CALL  PL0T(XPA6E*YD1T(1>*3  • MOD(I*G>> 

RETURN 

DID 


SUBROUTINE  AXLAB( ANGLE*  1 BCD* NCHARX) 

COMMON  /ELK6/HEI OHT*  J*  INTEQ*  ABSCl  S*  ORDINA*  I CODE*  TOPMAR*  BO  IMA  R* 

1 LEFMAR*  RY1MAR*  FACT*MAXI  S*MLINE*  T1  CKLE*  STARTL*  SEPLAB* 

2 SYMBLH*LABSEP*ASTART*YDIT*ROTFAC 
REAL  LEniAR*LABSEP 

DIMINSION  1BCD<1>*  YDI  T(  100) 

K • 2 

NCHAR  - NCNARX 

IF  <ABS(MIGLE>  *GT*  0*1)  GO  TO  30 
XPAGE  - - 0RD1NA«0*5  - NCHAR*HEI  6HT*0*  5 
YPAOE  > SEPLAB 
GO  TO  31 

XPAGE  ■ - ORDINA  - LABSEP 

YPAOE  ■ - ABSCIS*0*5  ♦ NCHAR*HE1 0HT*0*  5 

CALL  SYMBOLCXPAOE*  YPAGE*HE1  OHT*  I BCD*  ANOLE*NCHAR> 

RETURN 

END 


SUBROUTINE  DENDECC  QMAX*  DELQ*NDEC> 

1FUNT(ABS(QMAX)> •Of*  10)00  TO  5 

1 F(  AMO D<ABS(  QMAX  - DELQ)*  • 1 ) *GE*  *01  )00  TO  7 

NDEC  ■ 1 

RETURN 

NDEC  - - 1 

RETURN 

NDEC  - 8 

RETURN 

END 
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SUBROUTINE  GROWTHCHAXP*  TI MAX*  PMAX*  FREQ) 

DIMENSION  TIHAX(I)*  PMAX<I>«  TIME!  100>*  PEAKClOO)*  ALPHA!  100)* 
1 TIIOO)*  F(IOO) 

DO  100  I - 1*  MAXP 
TIME!  I)  • 0*0 
PEAK!1)  ■ 0*0 
ALPHA! I)  - 0*0 
T!I>  - 0*0 
F!I>  - 0*0 
100  CONTINUE 

K • 0 
J ■ 0 

110  K - K ♦ 1 

IF  !K  .GT*  MAXP)  GO  TO  120 
IF  (PMAX!K)  .LT*  0*0)  GO  TO  110 
J - J ♦ 1 
TIME!J)  ■ T1MAX!K) 

PEAK!J)  • PMAX!K) 

140  IF  !PMAX!K-»1)  *LT*  PEAK!J))  00  TO  130 
K • K ♦ 1 
T1ME!J)  - T1MAX!K) 

PEAK!J)  - PMAX!K) 

GO  TO  140 

130  IF  !PMAX!K>1)  *LE*  0*0)  00  TO  110 
K • K ♦ 1 
GO  TO  140 
120  CONTINUE 

NCYCLE  ■ J - 1 

DO  150  I - 1*  NCYCLE 

T!I)  ■ 0.5  ♦ !T1ME!1)  ♦ TIME!I^D) 

F!I)  - 2.0  * FREQ  / !TIME!1^1)  - TIME!!)) 

ALPHA!I)  ■ ALOG!PEAK!I^  D/PEAK!!  ))  * F!  I> 

150  CONTINUE 

WRITE  ! 6* 6001)  NCYCLE 
LINE  ■ 4 

DO  255  1ST  > 1*  NCYCLE*  8 
I START  ■ 1ST 
ISTOP  - 1ST  ♦ 7 

IF  ! I STOP  .OT.  NCYCLE)  ISTOP  • NCYCLE 
WRITE  ! 6*  6024)  ! ALPHA!  1>*  1 • 1 START*  ISTOP) 

WRITE  ! 6* 6024)  (F!I)*  1 > I START*  ISTOP) 

WRITE  ! 6* 6084)  (T!I>*  I - 1 START*  ISTOP) 

WRITE  !6*6014> 

LINE  ■ LINE  ♦ 4 

IF  (LINE  .LT.  58)  00  TO  855 

LINE  ■ 0 

WRITE  (6*6013) 

855  CONTINUE 
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6001  FORHAT  ( 1H1« 4X« 35HPRESSURE  GROWTH  RATE  AND  FREQUENCY** 
1 /«SX*e3HT0TAL  NUMBER  OF  CYCLESi * 1 3///> 

6013  FORMAT  ( IHl) 

6014  FORMAT  ( IH  > 

6084  FORMAT  ( IH  «7X«8F13*6) 

C 

RETURN 

END 
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3.3 


PROGRAM  MAI 


Program  MAI  calculates  the  coefficients  of  both  the  linear  and  nonlinear 
terms  in  the  equations  describing  the  behavior  of  the  mode  amplitudes  (i.e,. 
Equations  (25))  to  be  solved  using  the  Method  of  Averaging  (MQA). 

Program  Description.  This  program  is  very  similar  to  Program  SOLIDl  in 
its  structure,  subroutines,  input  and  output.  Hence  it  is  unnecessary  to  de- 
scribe them  in  detail;  a description  of  MAI  is  obtained  by  substituting  "MAI" 
for  "SOLIDl"  and  "MA2"  for  "S0LID2"  in  Section  3.1, 

Sample  Case.  Here,  a sample  case  utilizing  Program  MAI  is  given.  All  of 
the  motor  parameters  and  specifications  are  the  same  as  described  in  Section 
3,1,  In  the  following  pages,  printed  output  of  MAl  for  this  sample  case  is 
presented. 
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CECOLFlEO  CCEFFlCie^T  OF  e<P>l 


CECOUFLCC  CCEfFIClEKT  OF  THE  CEKIVATIVE  OF  BIPII  CI2tJtPI 
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CCCOLfLEC  CCEFFICIEKT  OF  THE  RE«L  PART  OF  TrtE  COPBUSTiON  TERhl 
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OECOUFLEO  COEFFICIEKT  OF  BCP)  • Oe<0)/OT  IN  EQUATION  FOR  E(  II 


130 
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CECOUFLEC  CCEFFICIEK^  OF  EIPI  • CBIQI/OT  IN  EQUATION  FOA  B(  71 
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CECOUPLEC  COEFriClEkT  OF  6IPI  • C8(C>/OT  IM  EQUATION  FOR  6(  91 


t 
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FORTRAN  Source  Code. 


PROGfUM  MAKINPUT«OUTPUT«OATA# 

1 TAPES* INPUT*  TAPE6>0UTPUT«  TAPE»*DATA> 


PROORAH  MAI 


THIS  PROGRAM  COMPUTES  THE  COEFFICIENTS  WHICH  APPEAR 
IN  THE  DIFFERENTIAL  EQUATIONS  WHICH  GOVERN  THE  MODE*AMPLI  TUDE 
FUNCTIONS*  THESE  COEFFICIENTS  CAN  BE  WRITTEN  INTO  A FILE 
FOR  INPUT  TO  PROORM1  MAR. 

THE  FOLLOWING  INPUTS  ARE  REQUIREDi 

THE  FIRST  CARO  GIVES  THE  TITLE  OF  THE  CASE* 

SECOND  CAROt  GAM*  UE*  NOZZLE 

GAM  IS  THE  SPECIFIC  HEAT  RATIO* 

UE  IS  THE  STEADY  STATE  MACH  NUMBER  AT  THE  NOZZLE  ENTRANCE. 
NOZZLE  SPECIFIES  THE  TYPE  OF  NOZZLE  USEDi 
NOZZLE  ■ 0 QUASI -STEADY 

NOZZLE  • 1 CONVENTIONAL  NOZZLE 

THIRD  CARDt  NJMAX*  NONLIN*  NEOL*  NOUT*  NPRTKL 

NJMAX  IS  THE  NUMBER  OF  MODt-AMPLI  TUDE  FUNCTIONS  IN  THE  ASSUMED 
SERIES  S(M.UTION* 

THE  COEFFICIENTS  COMPUTED  ARE  DETERMINED  BY  NONLIN  AS  FOLLOWS! 
NONLIN  • 0 LINEAR  COEFFICIENTS  ONLY 
NONLIN  • 1 BOTH  LINEAR  AND  NONLINEAR  COEFFICIENTS* 
COEFFICIENTS  TO  BE  NEGLECTED  ARE  DETERMINED  BY  NEGL 
AS  FOLLOWS! 

NEOL  - 0 TERMS  SMALLER  THAN  0*00001  ARE  NEGLECTED* 

NEGL  • I LINEAR  TERMS  SMALLER  WAN  SMI  AND  NONLINEAR 
TERNS  SMALLER  WAN  SMS  ARE  NEGLECTED* 

THE  OUTPUT  IS  DETERMINED  BY  NOUT  AS  FOLLOWS! 

NOUT  - 0 PRINTED  OUTPUT  ONLY 

NOUT  • I WRITE  INTO  A FILE  AND  PRINT  OUTPUT* 

NOUT  ■ 8 WRITE  INTO  A FILE  ONLY* 

NPRWL  DETERMINES  WKEWER  WE  PARTICLES  ARE  PRESDITt 
NPRTKL  - 0 PARTICLES  NOT  PRESENT* 

NPRWL  - 1 PARTICLES  PRESENT* 

NEXT  CARD  < ONLY  IF  NPRTKL- 1>!  DIA*  RHOM*  SP*  TEMP*  FREQ*  CM 
DIA  IS  WE  PARTICLE  DIAMETER*  IN  MICRONS* 

RHOM  IS  WE  DENSITY  OF  WE  PARTICLE  MATERIAL*  IN  KG/M«*3* 

SP  IS  RATIO  OF  SPECIFIC  HEATS  OF  PARTICLE  MATERIAL  AND  GAS* 
TWP  IS  WE  CHAMBER  TBIPERATURE*  IN  DEGREES  KELVIN* 

FREQ  IS  WE  FREQUENCY  OF  OSCILLATION  IN  PURE  GAS*  IN  HERTZ* 

CM  IS  WE  PARTICLE  LOADING* 

NEXT  CARD  CNECESSARY  ONLY  IF  NEOL  « 1>!  Ml*  SMS 
SMI  AND  SMS  ARE  AS  DEFINED  ABOVE* 
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NEXT  NJMAX  CARDS  ( ONLY  IF  N0Z2LE  > 1>I  J»  RMPL<J>«  PHASE<J> 
fmPUJi  IS  THE  HAGNITUDE  OF  THE  NOZZLE  ADMITTANCE 
FOR  THE  J TH  MODE. 

PHASECJ)  IS  THE  PHASE  OF  1HE  NOZZLE  ADMITTANCE 
FOR  THE  J TH  MODE. 

NEXT  NJMAX  CARDSt  J*  LCJ>«  NAME(J> 

EACH  MODE-AMPLITUDE  IS  ASSIGNED  AN  INTEGER  J. 

THE  NODE  IS  SPECIFIED  BY  THE  INDEX  L<J>* 

L(J>  IS  THE  AXIAL  MODE  NIMBER  AND  MUST  NOT  EXCEED  NJMAX. 
NAME(J>  IS  A FOUR* CHARACTER  NAME  FOR  THE  J TH  MODE. 


DIMENSION 

1 

2 

3 

4 

COMPLEX 

1 

8 

3 

4 

COMMON 


L<6>«  NAME(6>«  TI1LE(7>« 

AMPL(6>*  PHASE! 6>*  V(8>#  C<3« 

18«  18>«CI(  18«  I8>«  JCC  18>« 

E(  I8«  I8«8>«D<  18*  I8«  I8>« 

KMAX<6>«  TSR<8«18>«  TSGC  18>«  TS(  3#  18) 

CRSLT*  CI«  ZEJ#  ZEPl*  ZEP8«  AX(4>*  AXINT(4*3>« 
DCOCF«  B(6>«  BC(6>« 

YNOZ(6>«  CC<5«6*6>«CN0fM<6>« 

CD1<6«6«6>*  CD8(6«6*6>* 

CD3<6*6«6>«  CD4(6*6«6>«  CCOSH*  CSINH 


DATA  INPUT. 

MAXMD  ■ 6 
MAXMD8  • 18 
MAXMD4  • 84 
PI  - 3.  141 5986536 
SNl  - 0.00001 
SM8  ■ 0*00001 
Cl  ■ <0.0* i.O) 

INPUT  PARAMETERS. 

4 READ  <5.5000)  TITLE 
IF  <B0rC5))  600.  1 
1 CONTINUE 

READ  (5.5001)  GAM.  UE.  NOZZLE 
IF  (GAM)  600.  600.  6 

8 READ  C 5. 5004)  NJMAX.  NONLIN.  NEGL.  NOUT.  NPRTKL 

IP  (NPRTKL  .BO.  1)  READ  (5.5006)  DIA.  RHOM.  SP.  TWP.  FREQ.  CM 

IF  (NEGL  .EG.  1)  READ  (5.5005)  SMI.  SM8 

GAMMA  • GAM  * (1*0  ♦ SP  • CM)  / (1.0  ♦ SP  * GAM  * CM) 

IF  (NOZZLE  *EQ.  1)  GO  TO  5 
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C COMPUTE  ADMITTANCE  FOR  QUASI • STEADY  NOZZLE* 

Y • (QMWA  • 1*0>  « UE/(8*0  * QAMMA) 

DO  3 J ■ 1«  NJMAX 
AHPL<J>  - Y 
PHASE! J>  >0*0 
3 CONTINUE 
00  TO  7 

5 DO  6 1 ■ 1«  NJMAX 
READ  <5*5003)  J*  AMPL<J>«  PHASE! J> 

6 CONTINUE 

7 DO  10  1 ■ 1*  NJMAX 
READ  ! 5* 5008)  J*  L!J>*  NAME!J> 

10  CONTINUE 

DO  18  J ■ 1*  NJMAX 
THETA  • PHASE! J)  * PI/ 180*0 
YR  ■ AMPL!J>  * COS!  THETA) 

Y1  - AMPL!J)  « SIN! THETA) 

YN0Z!J)  - CMPLX!YR*YI) 

18  CONTINUE 

NJMAX8  - NJMAX 

IF  !NPRTKL  *EQ*  1)  NJMAX8  ■ 8 * NJMAX 
ZE  • 1*0 
ZCOMB  - 1*0 
CAX  > GAMMA  ♦ 1*0 
RKOP  - 0*0 

IF  !NPRTKL  *EQ*  0)  00  TO  14 
Vise  ■ 8*834  * 0*00001  • ! TEMP/ 348 5* )«* 0*66 

PAR1KL  - !9*0«V1SG)  / !RHOM  * FREQ  * DIA  * DIA  * 10***!*  18)) 
UPBYU  - 8*0  / !1*0  ♦ SQRT!1*0  ♦ 8 * 0* UE/PARTKL) ) 

RHOP  ■ CM/ UPBYU 
14  CONTINUE 


CALCULATE  AXIAL  ACOUSTIC  ElOINVALUES* 


COMPUTE  ElOINVALUES* 

DO  40  J - 1*  NJMAX 
LL  ■ L!J) 

SMN  ■ 0*0 
YAMPL  ■ AMPL!J) 

YPHASE  - PHASE! J) 

CALL  EIOVAL!LL«SMN*OAMMA*ZE* YAMPL* YPHASE*CRSLT) 

B!J)  - CRSLT 

BC!J>  ■ CONJO! CRSLT) 

40  CONTINUE 
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c 

c ***4I***«********««4I4I»***«**4I***«**4I**«**«*******4I«|***4 

c 

C CALCULATE  LINEAR  COEFFICIENTS* 

C 

DO  too  NJ  - 1*  NJMAX 
DO  100  NP  - 1*  NJMAX 
C 

C ZERO  COEFFICIENT  ARRAYS* 

DO  105  KC  - 1«  5 
CC(KC«NJ«NP>  > <0*0«0*0> 

105  CONTINUE 
NPM  • NP 
NJM  ■ NJ 
C 

C CALCULATE  AXIAL  INTEGRALS* 

1&7  DO  130  NOPT  ■ 1*  4 

CALL  AXIAL  1C  NOPT*  NPM«  NJM*  UE«ZE*CRSLT> 

AXCNOPT)  ■ CRSLT 
130  CONTINUE 
C 

C EVALUATE  FUNCTIONS  AT  NOZZLE  END* 

ZEJ  > CCOSHCCl  * BCCNJM)  * ZE) 

ZEPI  - CCOSHCCl  * BCNPH)  * ZE) 

ZEP2  - Cl  4>  BCNPM)  * CSINHCC1«BCNPM)*ZE> 

C 

C COEFFICIENT  OF  THE  SECOND  DERIVATIVE  OF  ACP>* 

CCC1*NJ*NP>  - AXCl) 

C 

C COEFFICIENT  OF  ACP>* 

CCC8*NJ*NP>  - - AXCB)  ♦ ZEP84ZEJ 
C 

C COEFFICIENT  OF  THE  FIRST  DERIVATIVE  OF  ACP>* 
CCC3*NJ*NP)  ■ CCAX4AXC3)  ♦ 8*0«AXC4> 

1 ♦ aAMMA*YNOZCNP)*ZEPl*ZEJ> 

CCC5*NJ*NP)  ■ - GAMMA  * AXC3> 

IF  CNPRTKL  *E0*  0>  00  TO  100 

CCC8*NJ*NP>  - CCC8*NJ*NP>  • PARTKL  *«8  *RHOP  * AXCl) 

1 - PARTKL  * CGM1MA  - 1*0)  « CM  * AXC  4) 

CCC3*NJ*NP>  > CCC3*NJ*NP)  ♦ PARTKL  * RHOP  * AXCl) 
CCC4*NJ*NP)  ■ RHOP  * PARTKL** 3 * AXCl) 

1 ♦ C GAMMA  - 1*0)  * PARTKL**8  * CM  * AXC 4) 

C 

100  CONTINUE 
C 

C NORMALIZE  LINEAR  COEFFICIENTS* 

DO  140  NJ  ■ 1*  NJMAX 
CNOmCNJ)  ■ CCC1*NJ*NJ) 

DO  140  NP  - 1*  NJMAX 
DO  140  KC  - 1*  5 

CCCKC*NJ*NP)  > CCCKC*NJ*NP)/CNOfMCNJ) 

140  CONTINUE 
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COMPUTE  NONLINEAR  COEFFICIENTS* 

IF  (NONLIN  *E0*  0)  GO  TO  402 
61  • <04MMA  • l*0>  * 0*5 

DO  200  NU  • 1*  NJMAX 
DCOEF  ■ 0*S/CN0RM<NJ) 

DO  200  NP  • I*  NJMAX 
DO  200  NO  • l»  NJMAX 


CDHNJ«NP«NQ>  - (0*0«0*0> 
CD2<NJ«NP*NQ>  * (0*0* 0*0) 
C03(NJ«NP«NQ>  > (0*0«0*0> 
CD4<NJ«NP«N0>  > <0*0«0*0) 


244  DO  240  J • 2«  3 
DO  240  NC  • 1«  4 

CALL  AXIAL2( J*NC«NP«NQ«NJ#ZE«CRSLT> 
AX1NT(NC«J>  ■ CRSLT 
240  CONTINUE 


CDKNJ*  NP«NQ) 
CD2(NJ«NP«N0> 
CD3<NJ«NP«N0> 
CD4(NJ«NP«NQ> 


AXINT(1«2>  ♦ G1*AX1NT(  1«3> 
AXINT<2*2>  ♦ 61*AX1NT(2«3> 
AXINT(3«2>  ♦ GI*AX1NT(3«3> 
AXINT(4«2)  ♦ 614AX1NT<4«3> 


CDKNJ«NP«NQ) 
CD2<NJ«NP«NQ> 
CD3(NJ«NP*N0> 
CD4<NJ«NP«NQ> 
200  CONTINUE 


• CD1(NJ«NP«NQ>  * 
> CD2(NJ«NP«NQ>  * 
■ CD3<NJ«NP«NQ)  * 

• CD4CNJ«NP«NQ>  « 


DCOEF  * < 1.0*o 1*0) 
DCOEF  * ( 1*0«  I*0> 
DCOEF  * ( I • 0« 1 • 0> 
DCOEF  • ( t*0*> 1*0> 


CALCULATE  COEFFICIENTS  FOR  EQUIVM.ENT  REAL  SYSTEM* 

402  DO  350  NJ  ■ 1«  NJMAX 
NEVJ  ■ <2  * NJ>  - I 
NEVJl  > NEVJ  ♦ I 
DO  360  NP  • UNJMAX 
NEVP  - <2  • NP>  - 1 
NBVPl  > NEVP  ♦ 1 

COBFFICIINTS  OF  LINEAR  TERMS* 

CCR  ■ REALCCCC 1«NJ«NP>> 

CCl  ■ A1MAG(CC<  1«NJ«NP>) 
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CI(NEVJ*NEVP>  - CCR 
C1(NEWJ«NEVP1  > • -CCI 
CKNEVJUNEVP)  • CCI 
C1(NEWJ1«NEVP1>  - CCR 
1040  CONTINUE 

00  360  KC  ■ 1«  3 

CCR  « REAL(CC<KC« 1«NJ«NP) > 

CCI  ■ AIHAGCCCCKC^ 1*NJ«NP>) 

C(KC«NEVJ«NEVP>  ■ CCR 
C(KC<NEVJ«NEVPI ) - -CCI 
C(KC«NEVJ1«NEWP>  ■ CCI 
C(KC«NEVJ1«NEWPI>  ■ CCR 
360  CONTINUE 

COEFFICIENTS  OF  THE  COMBUSTION  TEM* 

DO  370  NP  • I,  NJMAX 
NEVP  ■ 2*NP  • 1 
NEVPl  • NEVP  ♦ 1 
CCR  ■ REALCCCC  5«NJ«NP)  ) 

CCI  - AIMA6(CC(5#NJ*NP>> 

E(NEVJ«NEVP* 1)  - CCR 
E(NEWJ«NEVP<e)  ■ - CCI 
E<NEVJ«NEVP1« 1)  ■ - CCI 
E<NEWJ«NEWPl*e>  • - CCR 
E(NEVJ1«NEWP«  1)  ■ CCI 
E(NEVJ1«NEVP*8)  ■ CCR 
E(NEVU1«NEVP1«  1)  • CCR 
E<NEVJ1«NEVPI«R>  - - CCI 

COEFFICIENTS  OF  NONLINEAR  TERNS. 

IF  (NONLIN  .EQ.  0)  GO  TO  350 

DO  370  NO  ■ |«  NJMAX 

NEVQ  - (2  « NQ)  • 1 

NEVQI  ■ NEVQ  ♦ 1 

CDIR  - REAL(CD1(NJ«NP«NQ>> 

con  • AIMAG<CDKNJ«NP«NQ>> 

CD2R  ■ REAL(CD2(NJ«NP«NQ> > 

CD2I  > AIMAG<CD2<NJ«NP*N0)) 

CD3R  - REAL(CD3<NJ«NP«NQ)) 

CD3I  > AIMAG(CD3(NJ«NP«NQ>) 

CD4R  • REAL(CD4CNJ«NP«NQ>) 

CD4I  ■ AIMA0(CD4(NJ«NP#NQ)) 

D<NEVJ*NEWP«NEWQ>  - CDIR  ♦ CD2R  ♦ CD3R  ♦ CD4P. 
0<NEVJ« NEVP* NEVQI)  • -CDII  ♦ CD2I  • CD3I  ♦ CD4I 

D<NEVJ*NEVPI*NEVQ)  • -CDII  - CD2I  ♦ CD3I  * C04I 

DCNEVJ# NEVPl* NEVQ 1)  - -CDIR  ♦ CD2R  ♦ CD3R  - CD4R 
D(NEVJ1*NEVP*NEVQ)  ■ CDII  ♦ CD2I  ♦ CD31  *■  CD41 
D<NEVJ1* NEVP* NEVQI)  > CDIR  - CD2R  ♦ CD3R  - CD4R 

D<NBVJl*NEVPt*NEVQ)  ■ CDIR  ♦ CD2R  - CD3f(  - CD4R 

D<NEVJ1*NEVP1*NEVQ1)  • -CDII  ♦ CD21  ♦ CL3I  - CD41 
370  CONTINUE 
350  CONTINUE 
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COMPUTE  COEFFICIENTS  FOR  THE  EQUATIONS  WHICH  ARE  DECOUPLED 
IN  THE  SECOND  DERIVATIVES* 

DO  405  KC  > 1«  6 
KMAX(KC)  ■ 0 
405  CONTINUE 

CALCULATE  INVERSE  OF  THE  MATRIX  C1(I«J>. 

UMAX  - NJHAX 
NJMAX  m2*  NJMAX 


V< 1)  • 1 

CALL  GJR(C1«MAXMD2«MAXMD8*NJMAX«0«  JC*V) 

USE  INVERSE  TO  CALCULATE  DECOUPLED  COEFFI Cl  INTS* 


LINEAR  COEFFICIENTS* 

DO  430  NP  ■ 1*  NJMAX 
DO  4&0  NJ  ■ 1«  NJMAX 
DO  480  KC  ■ 1*  3 
TS(KC«NJ>  - 0*0 
DO  480  K m l,  NJMAX 

TS<KC«NJ>  • TS(KC«NJ>  ♦ Cl(NJ*K>  * C(KC«K«NP> 
480  CONTINUE 

DO  430  NJ  ■ I*  NJMAX 
DO  430  KC  - 1*  3 
C(KC«NJ*NP>  ■ TS(KC«NJ> 

ABSVAL  ■ ABS(C(KC«NJ«NP>) 

IF  (ABSVAL  *6E*  SMI)  KMAX(KC)  ■ KMAX(KC)  ♦ 1 
430  CONTINUE 

COEFFICIENTS  OF  THE  COMBUSTION  RESPONSE  TEIM* 

DO  780  NP  > l»  NJMAX 

DO  785  NJ  > 1*  NJMAX 

TSR(1«NJ>  ■ 0*0 

TSR(8#NJ)  ■ 0*0 

DO  785  K ■ 1«  NJMAX 

TSR(1«NJ>  • TSR(1«NJ>  ♦ C1(NJ«K>  « E(K«NP#1> 

TSR(8*NJ>  ■ TSR(8«NJ>  ♦ C1(NJ«K>  * B(K«NP«8) 

785  CONTINUE 

DO  730  NJ  • 1«  NJMAX 
E(NJ«NP«1>  - TSR(1«NJ> 

ABSVM.  ■ ABS(B(NJ«NP«  1>> 

IF  (ABSVM.  *aE*  SN1>  KMAX(4>  ■ KMAX(4>  ♦ 1 
E(NJ«NP#8>  - TSR(8«NJ> 

ABSVAL  ■ ABS(E(NJ«NP«8>> 

1F(ABSVAL  *GT*  SMI)  KMAX(  5)  ■ KMAX(5>  ♦ 1 
730  CONTINUE 
780  CONTINUE 
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NONLINEAR  COEFFICIENTS. 

IF  CNONLIN  .EQ.  0)  00  TO  410 
DO  73S  NP  - l»  NJMAX 
DO  735  NO  - 1*  NJMAX 
DO  440  NJ  - I«  NJMAX 
TSO<NJ>  • 0*0 
DO  440  K ■ 1«  NJMAX 

TSQ(NJ)  > TSQCNJ)  ♦ C1(NJ«K>  * D(K*NP*NQ> 
440  CONTINUE 

DO  445  NJ  ■ I«  NJMAX 
D<NJ«NP«NQ>  • TSQ(NJ> 

ABSVAL  > ABS<D<NJ«NP*NO>) 

IF  (ABSVAL  .OT.  SMS)  KMAX(6>  ■ KMAX(6>  ♦ I 
445  CONTINUE 
735  CONTINUE 

410  CONTINUE 


OUTPUT. 

IF  (NOUT  .EQ.  2>  GO  TO  455 
WRITE  (6«6001>  TITLE 
WRITE  (6*6002)  GAM*  UE 
IF  (NOZZLE  *E0.  0>  WRITE  (6*6012) 

IF  (NPRTKL  .EQ.  0)  WRITE  (6*6022) 

IF  (NPRTKL  .EQ.  1)  WRITE  (6*6021)  DIA*  CM*  FREQ* 
1 TEMP*  SP*  RHOM*  PAR1KL 
WRITE  (6*6004) 

DO  310  J ■ 1*  JMAX 

WRITE  (6*6003)  NAME(J)*  J*  L(J)*  B(J)*  YNOZ(J) 
310  CONTINUE 

IF  (NONLIN  .EQ.  0)  WRITE  (6*6013) 

OUTPUT  OF  LINEAR  COEFFICIENTS* 

DO  320  KC  • 1*  3 
NJS  - 0 
NJF  • 0 
XOUNTJ  ■ 1 
I 756  NJS  ■ NJF  ♦ 1 

I NJF  - 10  • KOUNTJ 

> IF  (NJF  .GT.  NJMAX)  NJF  > NJMAX 

I NPS  ■ 0 

I NPF  - 0 

I KOWTP  ■ 1 

754  NPS  ■ NPF  ♦ 1 

NPF  ■ 10  * KOUNTP 

IF  (NPF  .OT.  NJMAX)  NPF  ■ NJMAX 

IF  (KC  .EQ.  1)  WRITE  (6*6005) 

IF  (KC  *EQ.  2)  WRITE  (6*6006) 

IF  (KC  .EG.  3)  WRITE  (6*6007) 
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WRITE  (6«6008>  (NP«  NP  • NPS«  NPF> 

WRITE  (6*60I4> 

DO  7 50  NJ  • NJ5«  NJF 

WRITE  (6«6009)  NJ<  ( C(KC*NJ*NP)«  NP  ■ NPS«  NPF> 
750  CONTINUE 

IF  (NPF  •£«•  NJMAX)  60  TO  7 58 
KOUNTP  • KOUNTP  ♦ 1 
00  TO  754 

758  IF  (NJF  .EQ*  NJMAX)  00  TO  75« 

KOUNTJ  - KOUNTJ  ♦ I 
00  TO  758 
756  CONTINUE 
380  CONTINUE 

OUTPUT  OF  THE  COMBUSTION  RESPONSE  TEfM. 

DO  770  KC  - 1#  8 
NJS  - 0 
NJF  - 0 
KOUNTJ  • 1 
760  NJS  • NJF  ♦ 1 

NJF  > 10  « KOUNTJ 
IF  (NJF  .OT*  NJMAX)  NJF  - NJMAX 
NPS  - 0 
NPF  - 0 
KOUNTP  • 1 
768  NPS  • NPF  ♦ 1 

NPF  - 10  * KOUNTP 

IF  (NPF  .OT*  NJMAX)  NPF  - NJMAX 

IF  (KC  .EQ.  1)  WRITE  (6#6019) 

IF  (KC  tEQ*  8)  WRITE  (6«6080) 

WRITE  (6*6008)  (NP*  NP  • NPS*  NPF) 

WRITE  (6*6014) 

DO  764  NJ  ■ NJS*  NJF 

WRITE  (6*6009)  NJ*  ( E(NJ*NP*KO*  NP  - NPS*  NPF) 
764  CONTINUE 

IF  (NPF  •EO*  NJMAX)  00  TO  766 
KOUNTP  - KOUNTP  ♦ I 
00  TO  768 

766  IF  (NJF  •EQ*  NJMAX)  00  TO  768 
KOUNTJ  - KOUNTJ  ♦ 1 
00  TO  760 
768  CONTINUE 
770  CONTINUE 

OUTPUT  OF  NONLINEAR  COEFFICIENTS* 

IF  (NONLIN  *EQ*  0)  00  TO  458 

DO  400  NJ  > I*  NJMAX 
NPS  • 0 
NPF  « 0 
KOUNTP  > 1 
780  NPS  ■ NPF  ♦ 1 

NPF  - 10  * KOUNTP 

IF  (NPF  *0T*  NJMAX)  NPF  - NJMAX 
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NQS  • 0 
NQF  ■ 0 
KOUNTQ  - i 
776  NQS  - NQF  ♦ 1 

NQF  • 10  * KOUNTQ 

IF  (NQF  .OT*  NJMAX)  NQF  - NJHAX 

WRITE  (6*6010)  NJ 

WRITE  (6*6011)  (NQ*  NQ  ■ NQS*  NQF) 

WRITE  (6*6015) 

DO  778  NP  > NPS*  NPF 

WRITE  (6*6009)  NP*  ( 0(NJ*NP*NQ)*  NQ  > NQS*  NQF) 

778  CONTINUE 

IF  (NQF  .EQ*  NJMAX)  GO  TO  774 
KOUNTQ  > KOUNTQ  ♦ 1 
GO  TO  776 

774  IF  (NPF  .EQ*  NJMAX)  GO  TO  778 
KOUNTP  ■ KOUNTP  ♦ 1 
GO  TO  780 
778  CONTINUE 
400  CONTINUE 

458  IF  (NOUT  *EQ*  0)  GO  TO  4 

WRITE  COEFFICIDfTS  ON  FILE* 

455  WRITE  (9*7001)  GAMMA*  UE*  ZE*  NJMAX*  NPR1KL 

IF  (NPRTKL  *EQ*  1)  WRITE  (9*7007)  DIA*  MOM*  SP* 

1 TEMP*  FREQ*  PARTKL*  CM 

DO  450  J - 1*  JMAX 

WRITE  (9*7008)  J*  L(J)*  NAH£(J) 

450  CONTINUE 

DO  457  J > 1*  JMAX 

WRITE  (9*7006)  J*  YNOZ(J)*  B(J) 

457  CONTINUE 

DO  460  KC  • 1*  3 
WRITE  (9*7003)  KMAX(KC) 

DO  460  NJ  ■ 1*  NJMAX 
DO  460  NP  ■ I*  NJMAX 
ABSVAL  ■ ABS(C(KC*NJ*NP)) 

IF  (ABSVAL  *0E*  SMI)  WRITE  (9*7004)  NJ*  NP*  C(KC*NJ*NP) 
460  CONTINUE 

DO  880  KC  • 4*  5 
WRITE  (9*7003)  KMAX(KC) 

KCM1N3  ■ KC  • 3 
DO  880  NJ  - I*  NJMAX 
DO  880  NP  ■ 1*  NJMAX 
ABSVAL  ■ ABS(E(NJ*NP*KCM1N3)) 

IF  (ABSVAL  *87*  SMI)  WRITE  (9*7004)  NJ*  NP*  E(NJ*NP*KCMIN3) 
880  CONTINUE 

WRITE  (9*7003)  KNAX(6) 

IF  (NONLIN  *E0*  0)  GO  TO  4 
DO  470  NJ  ■ I*  NJMAX 
DO  470  MP  - 1*  NJMAX 
DO  470  NQ  ■ 1*  NJMAX 
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ABSVAL  ■ ABS(D<NJ«NP«NO>) 

IF  « ABSVAL  •GE.  SMB)  WRITE  C9*  7005)  NJ«  NP«  NO*  IKNJ«NP#NQ) 

470  CONTINUE 
GO  TO  4 
C 

600  CONTINUE 
C 

C »»000m*0******000**m*m*****************0***********  000000000000 

C 

C FORMAT  SPECIFICATIONS* 

5000  FORMAT  (7A10) 

5001  FORMAT  (BF10*0*1S> 

5008  FORMAT  (215«1X*A4> 

5003  FORMAT  <I5*BF10*0> 

5004  FORMAT  (615) 

5005  FORMAT  (8F10*0> 

5006  FORMAT  (6F10*0) 

6001  FORMAT  ( 1H1« 1X« 7A10//) 

6002  FORMAT  (8X«8HGAHMA  • « F7* 5«  SX« 4HUE  ■*F6*4*//> 

6003  FOmAT  <8X«A4«215«4F10*5/> 

6004  FORMAT  <8X////8X«  14HNAME  J L*  6X«  3HIPS«  7X«  3HETA* 

1 8X*8HYR«7X*8HYI//) 

6005  FORMAT  (1HU45H  DECOUPLED  COEFFICIIMT  OF  B<P)t  C<t«J»P)///> 

6006  FORMAT  (1H1«44H  DECOUPLED  COEFFICIIMT  OF  THE  DERIVATIVE  OF* 

1 6H  B<P>t*SX«8HC<a*J*P>///> 

6007  FORMAT  <1H1«42H  DECOUPLED  COEFFICIIMT  OF  0(P)t  C<3*J*P)///> 

6008  FORMAT  (7X* 1HP*I8»9I 12> 

6009  FORMAT  (2X//8X* I 3* 3X* 10F18*6> 

6010  FORMAT  (1H1*42H  DECOUPLED  COEFFICIENT  OF  B<P>  * DB(Q>/DT* 

1 19H  IN  EQUATION  FOR  B<*I 8* 1H>///) 

6011  FORMAT  ( 7X* IHQ* 18*91 18) 

6012  FORMAT  < 8X* 20H0UAS1 'STEADY  NOZZLE*/) 

6013  FORMAT  ( 8X//8X*  84HL1NEAR  COEFFICIIMTS  ONLY) 

6014  FOIMAT  (4X*1HU) 

6015  FORMAT  (4X* IHP) 

6019  FORMAT  <IHI*40H  DECOUPLED  COEFFICIENT  OF  THE  REAL  PART* 

1 84H  OF  THE  COMBUSTION  TERHt*SX*8HE< J*P*  1)///) 

6080  FORMAT  (1H1*4SH  DECOUPLED  COEFFICIENT  OF  THE  IMAGINARY  PART* 

1 84N  OF  THE  COMBUSTION  TERMi*  5X*8HE(J*P*8)///> 

6081  FORMAT  (///*  lOX* 87HPART1 CLE  DIA  (IN  MICRONS)  ■ *F5*8*10X* 

1 4HCM  ■*F6*4*  lOX*  18HFREQ  (IN  HERTZ)  - *F6*l*/4f* 

8 lOX*  86HCHAMBER  TEMP  (IN  DEG  K)  ■ * F6*  1*  lOX*  4HSP  -* 

3 F6*4*  10X*87HRH0M  (IN  KO/CUBIC  METER)  ■ *F6*  1#//*  lOX* 

4 30HPART1CLE  DRAG  COEFFICIENT*  K a*F8*4*////) 

6088  FORMAT  ( 8X* 86HPART1 CL ES  ARE  NOT  PRESENT*//) 

7001  FORMAT  (3F10*5*3I5) 

7008  FORMAT  (81S*1X*A4) 

I 7003  FORMAT  (15)  ' 

7004  FORMAT  (81  5* FI 5*8) 

7005  FORMAT  (315*F15*8) 

7006  FORMAT  (IS*4F18*8) 

7007  FORMAT  (7F15*S) 

i END 
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J.4  PROGRAM  MA2 


r 

I . Program  MA2  carries  out  a numerical  integration  of  the  mode-amplitude 

equations  resulting  from  the  application  of  the  Galerkin  method  in  combination 
with  the  method  of  averaging  (i.e..  Equations  (39)), 

Program  Description.  Just  as  Program  MAI  is  similar  to  Program  SOLIDl , 
Program  MA2  is  similar  to  Program  S0LID2  in  its  structure,  subroutines,  input 
and  output.  Hence  one  is  referred  to  Section  3,2  where  a detailed  description 
of  Program  S0LID2  is  given. 

Sample  Case.  In  the  following  example,  the  same  case  considered  in  Section 
3.2  is  treated  using  Program  MA2,  The  printed  and  plotted  output  of  this  case  is 
presented  in  the  following  pages. 
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00603  0.00000  12.66637  .00920 
00603  0.00000  16.70796  .00929 
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STEP  TItM:  FPESSUKE  PRESiURE  PRESiURE  C»S  VEL  P»R  VEL 
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PKESSUflE  PAXIHA  ANO  MKIHA  ATI 
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PAESSURE  GfiCMTH  RATE  AKC  FREQUENCY 
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DIMENSIONLESS  TIME. 
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F OKI' KAN  Source  Code. 


PROGRAM  MA8(  1 NPUT*  OUTPUT#  DATA# 

1 TAPES- INPUT#  TAPE6-0UTPUT#  TAPE9-DATA) 


**«**********«4i  PROGRAM  MAG  *******««****«*«***««**««**•««* 


THIS  PROGRAM  INTEGRATES  THE  SYSTEM  OF  DIFFERENTIAL  EQUATIONS 
FOR  MODE  AMPLITUDES  USING  THE  COEFFICIENTS  COMPUTED  BY  THE 
PROGRAM  HAl.  TIME-HISTORY  OF  A PRESSURE  DISTURBANCE  IN  THE 
ROCKET  IS  COMPUTED#  AND  THE  DESIRED  PLOTS  * PRINTOUTS  ARE 
PRODUCED* 


THE  FOLLOWING  INPUTS  ARE  RlQUIREDt 

(1>  THE  CONTROL  NUMBERS#  NOUTCF  AND  NHI STR* 

<G>  THE  COEFFICIENTS  FROM  PROGRM1  MAI* 

(3)  THE  DATA  DECK* 

THE  FIRST  CARD  GIVES  THE  CONTROL  NUMBERS#  NOUTCF  AND  NHI  STR* 
NOUTCF  DETERMINES  PRINTOUT  OF  COEFFICIENTS! 

IF  NOUTCF  • 0 COEFFICIENTS  ARE  NOT  PRINTED  OUT* 

IF  NOUTCF  - 1 ONLY  LINEAR  COEFFICIENTS  ARE  PRINTED  OUT* 

IF  NOUTCF  - 8 ALL  COEFFICIENTS  ARE  PRINTED  OUT* 

NHI  STR  DETERMINES  IF  PRESSURE  HISTORY  IS  TO  BE  PRINTED! 

IF  NHI  STR  ■ 0 PRINTED 
IF  NHI  STR  - 1 NOT  PRINTED* 

THE  COEFFICIENTS  ARE  OBTAINED  FR0I1  PROGRAM  MAI 

BY  PUTTING  NOUT  ■ 1 OR  NOUT  > 8#  THEREBY  WRITING  THE  COEFFICIENTS 
INTO  A DISK*  THIS  DISK  HAS  BEEN  GIVEN  IHE  DEVICE  NIMBER  9* 

THE  DATA  DECK  CONSISTS  OF  THE  FOLLOWING  CARDS! 

FIRST  CARD!  TITLE  OF  THE  CASE* 

SECOND  CARO!  H#  TSTART#  TOUI T#  FREQ#  BCOMB 
H IS  THE  INTEGRATION  STEP  SI  SB* 

TSTART  IS  THE  TIME  AT  WHICH  OUTPUT  STARTS* 

TQUIT  IS  THE  TIME  AT  WHICH  COMPUTATIONS  ARE  TERMINATED* 

FREQ  IS  THE  MOTOR  FREQUENCY  (IN  PURE  GAS>#  IN  HERTS* 

BCOMB  IS  THE  COMBUSTION  RESPONSE  NONLINEARITY  FACTOR* 

THIRD  CARO!  A8PARA#  B8PARA#  EN#  OMROA 

A8PARA  AND  B8PARA  ARE  THE  COMBUSTION  PARAMETERS 
IN  THE  A-B  MODEL* 

EN  IS  THE  PRESSURE  EXPONENT  IN  THE  BURNING  RATE  LAW* 

OMEGA  IS  THE  FREQUENCY  NONDIMENSI ONALISED  BY  IHE  SQUARE  OF 
THE  STEADY- STATE  BURNING  RATE* 
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FOURTH  CARDS  NLOC*  NTERHS*  NOUT*  NCOMB 

NLOC  DETEHHINES  THE  LOCATION  OF  THE  WALL  PRESSURE  MAXIMA 
AND  MINIMA! 

IF  NLOC  • 1 LOCATION  IS  Z « 0*0 

IF  NLOC  • 2 LOCATION  IS  Z - 1.0 

IF  NLOC  - 3 LOCATION  IS  Z « 0*5 

NTEmS  IS  THE  NUMBER  OF  TEHHS  GIVEN  INITIAL  VM.UES* 

NOUT  IS  THE  OUTPUT  CONTROL  NUMBER. 

IF  NOUT  - 0 PRINTED  OUTPUT  ONLY. 

IF  NOUT  > 0 BOTH  PRINTED  AND  PLOTTED  OUTPUTS 

IF  NOUT  - 1 PLOT  OF  PRESSURE  AT  Z ■ 0.0  ONLY. 

IF  NOUT  > 2 PLOT  OF  PRESSURE  AT  Z - 0.0  AND  Z - 1.0 

IF  NOUT  > 3 PLOT  OF  PRESSURE  AT  Z ■ 0.0«  NO  MiD  0.5. 

NCOMB  DETERMINES  IF  COMBUSTION  NONLINEARITIES  ARE  CONSIDERED! 
IF  NCOMB  - 0 NEGLECTED. 

IF  NCOMB  ■ 1 INCLUDED. 

NEXT  CARD  (NECESSARY  ONLY  IF  PLOTS  ARE  REQUIRED)!  YHI*  YLAB«  ITICY 
YHI  IS  THE  MAXIMUM  ORDINATE  FOR  PRESSURE  PLOTS. 

NOTE!  THE  ORDINATE  SCALES  FOR  PRESSURE  AND  AMPLITUDE  PLOTS 
ARE  SYMMETRIC  ABOUT  ZERO. 

YLAB  IS  THE  INTERVAL  FOR  ORDINATE  LABELING  FOR  ABOVE  PLOTS. 
ITICY  IS  THE  NUMBER  OF  ORDINATE  TIC  MARKS  FOR  ABOVE  PLOTS. 
NOTE!  ITICY  SHOULD  BE  NEGATIVE  FOR  PRESSURE  AND  AMPLITUDE 
PLOTS  TO  OBTAIN  CENTERLINE. 

NEXT  CARO  (NECESSARY  ONLY  IF  PLOTS  ARE  REQUIRED)!  MDPLOT 

MDPLOT  DETERMINES  IF  PLOTS  OF  INDIVIDUAL  MODES  ARE  REQUIRED! 

IF  PLOT  OF  J TH  MODE  IS  REQUIRED#  PUNCH  ”1**  IN  THE 
5*U  TH  COLUMN. 

IF  PLOT  OF  J TH  MODE  IS  NOT  REQUIRED#  PUNCH  *‘0"  IN  THE 
5*J  TH  COLIMN. 

NEXT  CARO  (NECESSARY  ONLY  IF  PLOT  OF  ANY  MODE  AMPLITUDE  IS 
REQUIRED)!  YHIMD#  YLAEMD#  I TI CMD 
YHIMO  IS  THE  MAXIMUM  ORDINATE. 

YLAEMD  IS  THE  INTERVAL  FOR  ORDINATE  LABELLING. 

ITICMD  IS  THE  NUMBER  OF  ORDINATE  TIC  MARKS  FOR  MODE  PLOTS. 
NOTE!  ITICMD  SHOULD  BE  NEGATIVE  TO  OBTAIN  CENTEELINE. 

REMAINING  CARDS  (NTEMIS  IN  NIMBER)!  J#  AST#  ACT 

AST  IS  THE  AMPLITUDE  OF  THE  SINE  TERM  OF  THE  J TH  MODE. 

ACT  IS  THE  AMPLITUDE  OF  THE  COSINE  TERM  OF  THE  J TH  MODE. 
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'OoB'j^ui^ura*-  » 'Oao-^ocnx»Ci>io 


COMPLEX  YN0Z(6)«  B<6>«  Cl«  C3«  RES(6>«  CRES 

DIMENSION  L(6)«  NAME(6>«  AA(4)«  DELTA(6«6>*  YI(I2)« 
t YR<12)«  CP(3*12*12>*  EC12*12#2)*  VJHA(24>« 

CFT(3«12)«  CFZ(3«12>«  AS(  12)«  BETAK  6»  6«  6>« 

AC<I2)<  U(5«24>«  Y(24>«PRESS(  3)*  BETA2(  6»  6«  6>« 
YPC24>*  FZ(4*24>«  UZ<  24)«Z(  3)«  TIMAX(500)« 
TPLOKSOO)*  YPLOK  3.  500)»  DUMMYT<500)»  DVJMMYY<500)> 
IBUF(512)#  ITTC3)#  I TY  I < 3)  » I TY2C  3)  # I TY3<  4)  # 

ITP(2)«  TI1LE(7>«  PRS(500)*  TI(500>«  PMAX(500)« 

MDPL0T(6>»  UPL0T(6«  500>«  MTI11.1(2>«  MTI1L2(2>* 
MTITL3<2>«  MTI'IL4<2>*  MTITLS(2)«  MT1TL6<2)«  MTITL<2) 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


C(2*24*12)«  D(4*12«I44)«  KPMAX(2»24>«  IC(2«24«12>« 
KPQMAX(I2)«  IDP(12*144>#  IDQ<12*I44) 

/BLK2/  B 

/BLK3/  NPRTKL«  NJM^«  NLMAX#  GAMMA«  C0EF(2«12> 

/BLK4/  PARTKL#  RHOP«  FR0K12) 

/BLK5/  RES*  NCOMB*  BCOMB*  E 


ITT/"DIMENSIONL”»”ESS  TIME*  "*  "T 
ITYl/*’HEAD  END  P*‘#  "RESSURE  PE"*  "RTURBATI  ON*V, 

ITY2/"N0ZZLE  PRE"*"SSURE  PERT”*  "URBATI  ON  "/* 

I TY 3/ "PRESSURE  P"*  "ERTURBATI 0"*  "N  AT  THE  C"*  "ENTER  "/* 
ITP/"PRESSURE  P"*"EAKS  "/* 

MTI1LI/"AMPLITUDE  "*  "OF  IL  flODE"/* 

MTITL2/"AMPLITUDE  "*  "OF  2L  flODE"/* 

MTITL3/"AMPLITUDE  "*  "OF  3L  MODE"/* 

MTITL 4/ "AMPLITUDE  "*  "OF  4L  MODE"/* 

MTITL  5/ "AMPLITUDE  "*  "OF  5L  MODE"/* 

I MTITL6/"AMPLITUDE  "*  "OF  6L  MODE"/ 

C 

MAXMD  ■ 6 
MAXMD2  - 12 
HAXMD4  - 24 
MAXMD6  ■ 36 
MAXMDD  ■ 144 
LAST  - 5 
ERR  ■ 0*001 
TDEL  • 10*0 
NPT  - 0 
AA( n > 0*0 
AA(2>  ■ 0*5 
AA(3)  - 0*5 
AA(4)  ■ 1*0 
PI  > 3*1415926536 
HC  ■ 1*0 


READ  (5*5003)  NOUTCF*  NHISTR 
C 

C *«***4i**«*«*«  COEFFICIENT  INPUT  SECTION  ♦••♦*•*•**• 

C 

C THIS  VERSION  OF  MA2  READS  THE  COEFFICIENT  DATA  FROM 
C A FILE  GENERATED  BY  PR00RM4  MAI*  TO  READ 
C THIS  DATA  FROM  CARDS*  USE  READ  (5*XXXX)  INSTEAD  OF 

C READ  (9*XXXX)  IN  THIS  SECTION* 
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INPUT  OF  MOTOR  PARAMETERS  AND  NUMBER  OF  TERMS* 

READ  (9»5001)  GAMMA>  UE«  Z E«  NJMAX#  NPRTKL 

RHOP  • 0*0 

PARTKL  - 0*0 

UPBYU  ■ 0*0 

JMX  - NJMAX/S 

NU  • 8 * NJMAX 

GAM  ■ GAMMA 

FRATIO  ■ 1.0 

IF  (NPRTKL  *EQ.  0)  GO  TO  14 

READ  (9>5011)  DIA*  RHOM*  S?»  TEMP«  FREQ#  PARTKL*  CM 
UPBYU  ■ 8.0/(1.0  ♦ SORTd.O  ♦ 8.0  ♦ UE/PARTKD) 

RHOP  ■ CM/UPBYU 

GAM  - GAMMA  / <1.0  * SP*OI  - SP«(M*GAMMA> 

FRATIO  • SQRT(GAMMA/(GAM*( 1.0  * CM)>> 

14  CONTINUE 

WRITE  (6*6001)  UE*  JMX*  GAM 
IF  (NPRTKL  .EQ.  0>  WRITE  (6*6033) 

IF  (NPRTKL  .EQ.  1)  WRITE  (6*6009)  GAMMA 
IF  (NPRTKL  .EQ.  1)  WRITE  (6*6030)  DIA*  CM*  FREQ*  TEMP* 
1 SP*  RHOM*  PARTKL 
WRITE  (6*6002) 

INPUT  OF  DESCRIPTION  OF  SERIES  EXPANSION. 


Cl  o on  fi  o 


DO  404  NJ  - 1«  JMX 
00  404  NP  - 1#  JMX 
DELTA(NJ«NP)  ■ 0*0 

IF  (NJ  .EQ.  NP)  DELTACNJfNP)  • 1«0 
404  CONTINUE 

PIBY2  ■ PI/2. 

DO  406  NJ  ■ l»  JMX 

DO  406  NP  > 1.  JMX 

DO  406  NO  - l»  JMX 

IF  (NP  .NE.  NQ^NJ)  GO  TO  408 

BETAKNP.NQ.NJ)  ■ PIBY2 

BETA2(NP«NQ«NJ)  • - PI  BY2 

GO  TO  406 

408  IF  (NO  .NE.  NP^NJ  .AND.  NJ  .NE.  NP^NO)  GO  TO  406 
BETA1(NP<N0«NJ>  ■ PIBY2 
BETA2(NP«NQ#NJ>  • P1BY2 
406  CONTINUE 

ZERO  LINEAR  COEFFICIENT  ARRAYS. 

DO  20  KC  • 1.  3 
DO  20  NJ  • i«  MAXMD2 
DO  20  NP  > 1#  MAXMD2 
CP(KC«NJ«NP)  • 0.0 
20  CONTINUE 

ZERO  NONLINEAR  COEFFICIENT  ARRAY. 

DO  30  KC  ■ 1*  4 
DO  30  NJ  • 1*  MAXMD2 
DO  30  NPQ  - 1«  MAXMDD 
D(KC«NJ«NPQ)  > 0.0 
30  CONTINUE 

INPUT  OF  LINEAR  COEFFICIENTS. 

DO  40  KC  ■ 1#  3 
READ  (9«5003>  KMAX 

IF  (NOUTCF  .GT.  0)  WRITE  (6.6004)  KC.  KMAX 
IF  (KMAX  .EG.  0)  60  TO  40 

DO  45  K - 1.  KMAX 

READ  (9.5004)  NJ.  NP.  CP(KC.NJ.NP) 

IF  (NOUTCF  .GT.  0)  WRITE  (6.6005)  KC.  NJ.  NP*  CP(KC.NJ.NP) 

45  CONTINUE 
40  CONTINUE 

DO  305  KC  - 4.  5 
READ  (9.5003)  KMAX 
KCMIN3  ■ KC  • 3 

IF  (NOUTCF  .GT.  0)  WRITE  (6.6031)  KCMIN3.  KMAX 
IF  (KMAX  .EQ.  0)  60  TO  305 
DO  310  K - I.  KMAX 

READ  (9.5004)  NJ.  NP.  E(NJ.NP.KCMIN3) 

IF  (NOUTCF  .GT.  0)  WRITE  (6.6032)  NJ.  NP.  KCM1N3.  E(NJ.NP*KCM1N3) 
310  CONTINUE 
305  CONTINUE 


180 


oooooo  oo 


INPUT  OF  NONLINEAR  COEFFICIENTS. 

READ  (9«5003)  NLMAX 

IF  (NOUTCF  .EQ.  2)  WRITE  (6*6006)  NLMAX 
IF  (NLMAX  .EQ.  0)  60  TO  50 

00  52  NJ  - 1*  MAXMD2 
KPQMAX(NJ)  • 0 
52  CONTINUE 

DO  55  K • 1*  NLMAX 

READ  (9*5005)  NJ*  NP*  NQ*  DT 

IF  (NOUTCF  .EQ.  2)  WRITE  (6*6007)  NJ*  NP*  NQ*  DT 
KPQMAX(NJ)  • KPQMAX(NJ)  ♦ | 

KPQ  - KPQMAX(NJ) 

IDP(NJ*KPQ)  - NP 
IDO(NJ*KPQ)  - NQ 
NJ12  - (NJ-*^l)/2 
NP12  - (NP^l)/2 
NQ12  > (NQ>l)/2 

DT  ■ DT  * 0.5  * FROl(NQ)  / (FRQI(NJ)  * PI) 

D(  1*NJ*KPQ)  > DT  * BETA2(NJ12*NP12*NQI2) 
D(2*NJ*KPQ)  • • DT  * BETA1(NPI2*NQI2*NJI2) 
0(3*NJ*KPQ)  ■ DT  * BETA2(NQ12*NP12*NJ12) 
D(4*NJ*KPQ)  - - DT  * BETA2(NP12*NQ12*NJ12) 

55  CONTINUE 
50  CONTINUE 


*««*«««**•«**  PRESSURE  COEFFICIENT  SECTION  **•***♦♦****♦*♦♦♦*•♦♦♦* 

CALCULATE  SPATIAL  COORDINATES  FOR  PRESSURE  COMPUTATION. 

Z( 1)  - 0.0 

Z(2)  - ZE 

Z(  3)  > 0.5*  ZE 

CALCULATE  COEFFICIENTS  FOR  PRESSURE  TIME  HISTORIES. 

DO  53  NPRES  - I*  3 
DO  53  J - 1*  JMX 
NP  ■ (2  * J)  - 1 
Z1  - Z(NPRES) 

CALL  PHICFS(J*Z  1*CI*C3) 

CFT( NPRES* NP)  > REAL(Cl) 

CFT( NPRES* NP*  1)  ■ -AIMAQ(CI) 

CFZ(NPRES*NP)  ■ REAL(C3> 

CFZ(NPRES*NP*1)  - -AIMAQ(C3) 

53  CONTINUE 

OUTPUT  OF  COEFFICIENTS  FOR  PRESSURE  TIME  HISTORIES. 

WRITE  (6*6020) 

DO  56  NPRES  -US 
WRITE  (6*6014) 

DO  56  J - 1*  NJMAX 

WRITE  (6*6021)  J*  Z(NPRES)*  CFT(NPRES* J)*  CFZ(NPRES*J) 

56  CONTINUE 
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c ****«***«««4<4.  data  input  section  *•*♦♦****♦ 

c 

READ  <5«5000)  TITLE 
C 

C ZERO  INITIAL  VALUE  AND  FREQUENCY  ARRAYS. 

5 DO  57  K ■ NJMAX 
AS(K)  - 0.0 
AC(K)  - 0*0 
57  CONTINUE 
C 
C 

C READ  COMBUSTION  AND  CONTROL  PARAMETERS. 

READ  ( 5«  5006)  H#  TSTART*  TQUI  T«  FREQ«  BCOMB 
IF  <EOF(  5))  300#  I 
1 CONTINUE 

READ  (5#  5013)  A2PARA#  B2PARA#  EN«  OMEGA 
WRITE  <6#6034)  A2PARA#  B2PARA#  EN«  OMEGA 
DO  46  K - 1#  JMX 
OMEGAK  ■ OMEGA  * K 

CALL  RESPNSC  EN#  A2PARA#  B2PARA#  OMEGAK#  CRES) 

RES(K)  « CRES 

WRITE  (6#  6035)  K«  RES(K) 

46  CONTINUE 
C 

C READ  CONTROL  NUMBERS. 

READ  (5#  5008)  NLOC#  NTERNS#  NOUT#  NCOMB 
IF  (NOUT  .GT.  0)  NPT  ■ 1 
IF  (NCOMB  .EO.  0)  WRITE  (6#  6039) 

IF  (NCOMB  .EQ.  I)  WRITE  (6#  6040)  BCOMB 
WRITE  (6#  6041) 

C 

C 

IF  (NOUT  .EQ.  0)  GO  TO  9 
C READ  DATA  FOR  SETTING  UP  PLOTS. 

READ  (5#  5009)  YHl#  YLAB#  1 TI CY 
READ  (5#  5014)  MDPLOT 
MDPLTL  > 0 
DO  320  K - 1#  JMX 
320  MDPLTL  - MDPLTL  ♦ MDPLOT(K) 

IF  (MDPLTL  .EQ.  0)  GO  TO  9 
READ  (5#  50 15)  YHIMD#  YLAEMD#  ITICMD 
YLOMD  • - YHIMD 
C 

c **«**4i*«««**  initial  amplitudes  section  •**< 

C 

9 DO  54  K * I#  NTERMS 
C 

C INPUT  INITIAL  AMPLITUDES  FOR  F-FUNCTIONS. 
READ  (5#  5007)  J«  AST#  ACT 
NJ  ■ (2  4 J)  - I 
AS(NJ)  - AST 
AC(NJ)  - ACT 


182 


ooo  oooo  o o oo  ooo 


ff 

CALCULATE  INITIAL  AMPLITUDES  FOR  G-FUNCTIONS. 

IF  <FRQ1(NJ>)  58#  58#  581 
581  OYRU  > GAMMA*YR(NJ)*UE 

GYIF  - GAMMA*YI (NJ>*FRQ1(NJ) 

GYRF  - GAMMA*YR(NJ)«FRQ1(NJ> 

GYIU  - GAMHA*Y1 (NJ)*UE 

NPRES  - 2 

AI  - (I.O  ♦ GYRU)*CFZ(NPRES#NJ4- 1) 

1 - GYIF*CFT(NPRES#NJ+1) 

A2  • GYRF»CFT(NPRES#NJ^  I)  ♦ GYI  U*CFZ(NPRESUNU4- 1 > 

A3  « -<1.0  ♦ GYRU)*CFZ< NPRES# NJ>  ♦ GYI F*CFT(NPRFS#NJ> 
A4  - GYRF*CFT(NPRES#NJ>  ♦ GYI  U*CFZ (NPRES# NJ> 

DET  - A1*AI  * A2*A2 
IF  (DET  *LT.  0*0000001)  GO  TO  583 
RI  • A3*AC(NU)  - A4«AS(NJ> 

R2  ■ -A4«AC(NJ)  - A3*AS(NJ) 

AC(NU^I)  - (RI*A1  ♦ R2*A2)/DET 
AS(NJ^l)  ■ •(R2«AI  • Rl4iA2)/0ET 
GO  TO  58 

583  AC(NJ^l)  - -AS(NJ) 

AS(NU-»1>  ■ AC(NJ) 

58  CONTINUE 
5A  CONTINUE 


OUTPUT  OF  INITIAL  AMPLITUDES* 

WRITE  (6#  6016) 

DO  590  J - 1#  NJMAX 
IF  (AS(J)>  591#  592#  591 
592  IF  (AC(J)>  591#  590#  591 
591  WRITE  (6#6017)  J#  FRQKJ)#  AC(J)#  AS(J) 

590  CONTINUE 

IF  (NOUT  *GE*  1)  WRITE  (6#  6027) 

*«***•«*•****  LINEAR  COEFFICIENTS  SECTION  ♦*♦**♦*♦♦♦♦♦*♦**•♦*♦•♦•♦ 

DO  59  KC  ■ 1#  2 
DO  59  NJ  - 1#  MAXMD4 
KPMAX(KC#NJ)  > 0 
59  CONTINUE 

DO  315  KC  ■ 1#  2 
00  315  NJ  ■ 1#  MAXMD4 
DO  315  NP  - 1#  MAXMD2 
C(KC#NJ#NP)  - 0*0 
315  CONTINUE 
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COMPUTE  LINEAR  COEFFICIENTS  FOR  GIVEN  VALUES  OF 
HC  AND  RESPONSE  FUNCTION. 

60S  DO  60  NJ  ■ 1*  NJMAX 
NJI2  ■ (NJ-»l)/2 
DO  60  NP  > 1*  NJMAX 
NP12  ■ <NP^l)/2 

FR2K2  ■ FRQ1(NP)«*2  ♦ PARTKL'»«'2 
RESR  « REAL! RES(NPI2) > 

RESI  « AIMAG(RES(NP12>> 

CT  - * 0*5  * FRQKNP)  / FRQl(NJ)  * DELTAINJ  12«NP  12)  * (CP(2*NJ#NP> 

1 ♦ HC  * RESR  * E(NJ«NP«1>  ♦ HC  RESI  * E(NJ«NP«2> 

2 - CP(  3*NJ«NP)/FR2K2) 

IF  (CT>  61«  6e»  61 

61  KPMAX(1«NJ)  - KPMAX(1«NJ)  * 1 
KP  - KPMAXC  1*NJ> 

IC(  1#NJ«KP>  - NP 
C(1#NJ«KP)  ■ CT 

62  CONTINUE 

CT  - - 0*5  / FRGKNJ)  * DH*TA<NJ12,r^P12)  ♦ <CP<WNJ>NP) 

1 ♦ PARTKL  * CP(  3*NJ#NP)/FR2K2) 

IF  (NJ  *EQ.  NP)  CT  - CT  ♦ FRQKNJ)  * 0*5 
IF(CT)  63<  64*  63 

63  KPMAX(2*NJ)  « KPMAX(2«NJ)  ♦ 1 
KP  - KPMAX(2*NJ) 

IC(2*NJ«KP)  - NP 
C<2*NJ*KP)  ■ CT 

64  CONTINUE 

CT  - 0.5/FRQKNJ)  * DELTA(NJ12*NP12)  * (CP(1*NJ*NP>  ♦ 

1 PARTKL  * CP(3*NJ*NP)  / FR2K2) 

IF  (NJ  *EQ.  NP)  CT  - CT  - 0*5  * FRQKNJ) 

IF  (CT)  420*  422*  420 

420  KPMAX(  UNJ4-NJMAX)  - KPMAX(  l*NJ-fNJt1AX)  ♦ 1 
KP  - KPMAX(  KNJ4-NJMAX) 

IC(  1*NJ-»NJHAX*KP)  - NP 
C(  1*NJ4>NJMAX*KP)  • CT 
422  CONTINUE 

CT  - * 0*5  4 FRQKNP)  / FRQKNJ)  * DELTA(NJ  1 2* NP  1 2)  * 

1 (CP(2*NJ*NP)  ♦ HC  * RESR  * E(NJ*NP*1)  ♦ HC  * RESI  4> 

2 E(NJ*NP*2)  • CP(3*NJ*NP)  / FR2K2) 

IF  (CT)  424*  410*  424 

424  KPMAX(2*NJ^N*mAX)  ■ KPHAX(  2*NJ>NJMAX)  ♦ 1 
KP  • KPMAX(2*NJ«NJMAX) 

1C(2*NJ«-NJMAX*KP)  ■ NP 
C(2*NJ^NJMAX*KP)  « CT 
410  CONTINUE 
60  CONTINUE 
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INITIAL  VALUES  SECTION  *****m*******************m*0* 


NSTEP  > 0 
NPI  • 3 
H6  - H/6 
TIME  • 0*0 
I - NPI 
TIU)  - TIME 
C 

DO  75  J - I*  NUMAX 
JP  ■ J ♦ NJMAX 
U(I«J)  • ASCJ) 

U(I«JP>  • AC(J> 

75  CONTINUE 

C CALCULATE  INITIAL  VALUES  OF  PRESSUBE  AND  VELOCITY* 

DO  704  NPRES  - 1*  3 
DO  702  U - 1«  NJMAX 
C0EF(1«J)  - CFT<NPRES«J> 

C0EF<2«J)  - CFZ(  NPRES*  J> 

ARC  ■ FRQKJ)  * TIME 
SINARQ  - SIN(ARG) 

COSARG  ■ COS(ARG) 

UMA(J)  ■ U(I«J)  * SINARQ  ♦ U(I*J^NJMAX)  * COSARG 
UHAIJ-t'NJMAX)  - FRQKJ)  ♦ <U<I*J>  ♦ COSARG  - U(I*J+NJMAX) 

702  CONTINUE 

DO  703  J - I*  NU 
Y(J)  ■ U(I*J> 

703  CONTINUE 

UBAR  ■ UE  * Z (NPRES) 

UMS  - UE 

CALL  PRSVEL  ( UBAR*  UM  S*  UM A*  P*  VZ  GAS*  UZ  PAR) 

PRESS(NPRES)  - P 

704  CONTINUE 

PRS(I)  ■ PRESS(NLOC) 

70  CONTINUE 

IF  (NHISTR  *E0*  0)  WRITE  (6*6008)  GAMMA*  UE 
IF  (NHISTR  *EQ.  0)  WRITE  (6*6022) 

mmmmmmm******  INITIALIZE  CONTROL  NUMBERS  *♦•**♦♦♦♦*♦*•♦*. 

LINE  ■ 6 
K - 0 
MAXNO  ■ 0 
MAXP  ■ 0 

IF  (NOUT  •EO.  0)  GO  TO  100 
JPLOT  - 0 
WIN  • TSTART 
TMAX  - TSTART  ♦ TDEL 
YLO  • -YHl 


SINARG) 
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**««*«««***4i«  NUMERICAL  CALCULATIONS  SECTION  ♦*•*♦*•**♦*»♦•♦*♦*♦♦* 

100  I - NPl 

RUNQE-KUTTA  INTEGRATION  SCHEME. 

105  NSTEP  ■ (I  - NPl  ♦ (LAST  - NPl)  ♦ K) 

RSTEP  ■ NSTEP 
TIME  - RSTEP  ♦ H 
TKI)  ■ TIME 
DO  120  J - 1«  NU 
y<J)  ■ U(I*J) 

120  CONTINUE 

CALL  RHS(Y#YP> 

DO  130  J - l>  NU 
FZ<  1#  J)  » YP<  J) 

130  CONTINUE 

DO  140  II  - 2*4 
DO  144  J ■ 1*  NU 

UZ(J)  • Y(J>  ♦ AA(ll)  * H « FZ(|1<>1*J) 

144  CONTINUE 

CALL  RHS(UZ*YP) 

DO  148  J - 1*  NU 
FZ(II*J)  • YP(J) 

148  CONTINUE 
140  CONTINUE 

DO  150  J - 1*  NU 

U(I+1*J)  - Y(J)  ♦ (FZ(  1*J)->8.0«(FZ(2*  J)«FZ<3*  J>)  ♦ FZ<4*J>)  ♦ H6 
150  CONTINUE 

CALCULATE  PRESSURE  TIME  HI  STORI  ESt 
DO  154  NPRES  ■ 1*  3 
DO  152  J - 1*  NJMAX 
COEF(I*J>  - CFT(NPRES*J) 

C0EF(8*J>  - CFZ( NPRES* J) 

ARG  ■ FROKJ)  * TIME 
SINARG  • SIN(ARG) 

COSARG  - COS(ARG) 

UMA(J>  ■ U(I*J)  * SINARG  ♦ U(  I*  J-^NJMAX)  * COSARG 
UMA(U^NJMAX)  - FROKJ)  * ( U(  I*  J)*CQSARG  > U<  I * J^NJMAX)*  SINARG) 

152  CONTINUE 

UBAR  > UE  * Z( NPRES) 

UMS  > UE 

CALL  PRSVEL(  UBAR*  UMS*  UMA*  P*  VZGAS*  VZPAR) 

PRESS(NPRES)  - P 
154  CONTINUE 

PRS(I)  ■ PRESS(NLOC) 

IF  (K  .EO.  0)  GO  TO  175 

DETERMINE  MAXIMUM  AND  MINIMUM  PRESSURE  AT  LOCATION  SPECIFIED 
BY  NLOC.  ' 

DPL  - PRS(I)  - PRS(I-l) 

DPS  • PRS(I-l)  - PRS(I-8) 

IF  (DPL4DPS)  173*  173*  175 
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173  PNUM  - PRSU-2)  - PRS(  I ) 

PDEN  - 2.0  * (PRSU-2)  ♦ PRSU)  - 2* 0*PRS(  1 - 1 ) > 

IF  (PDEN)  174*  175*  174 

174  PP  ■ PNIM/PDEN 

PA  ■ (PP  - 1.0)  * PP  ♦ 0.5 
PB  - 1.0  - (PP  ♦ PP) 

PC  ■ (PP  ♦ 1.0)  ♦ PP  ♦ 0.5 
MAXP  - MAXP  ♦ 1 

PMAX(MAXP)  • PA*PRS(I-2)  ♦ PB*PRS(I-1)  ♦ PC*PRS(D 
TIHAX(MAXP)  - TKI-l)  ♦ PP«H 
IF  (MAXP  .QE.  500)  GO  TO  250 
17  5 CONTINUE 

IF  (TIME  .LT.  TSTART)  00  TO  155 
IF  (NOUT  .£0.  0)  00  TO  156 

*«***«*4i***4i*  time  hi  stow  PLOTTIt^P  SECTION  *♦♦**♦•♦**♦. 
IF  (TMAX  .GT.  TQUIT)  00  TQ  156 

IF  ((TIME  .OT.  TMAX)  .OR.  (JPLOT  •GE.  500))  00  TO  1000 

JPLOT  - JPLOT  ♦ 1 

FILL  TIME  ARRAT  FOR  PLOTTING. 

TPLOT(JPLOT)  ■ TIME 

FILL  PRESSURE  ARRAYS  FOR  PLOTTING. 

DO  1001  J ■ 1*3 
YPLOT(J* JPLOT)  ■ PRESS(J) 

1001  CONTINUE 


IF  (MDPLTL  .EG.  0)  00  TO  156 
FILL  MODE  AMPLITUDE  ARRAYS  FOR  PLOTTING* 
DO  322  J ■ 1*  JMX 
IF  (MDPLOT(J)  .EG*  0)  00  TO  322 
J12  - 2*J  - 1 
UPLOT(J* JPLOT)  * U(I*J12> 

322  CONTINUE 

00  TO  156 

1000  NUN  ■ JPLOT 

PLOT  TIME  HISTORIES. 

DO  1020  NPLOT  - 1*  NOUT 

1 • C 

, JPLOT  ■ 0 

! ' 


UU  UUU  uu 
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ASSIGN  PLOTTING  PARAMETERS. 

YHIN  - YLO 
YMAX  ■ YHI 
NTICY  • ITICY 
DELY  ■ YLAB 

ELIMINATE  POINTS  THAT  ARE  OUT  OF  THE  ORDINATE  RANGE* 

DO  1010  J ■ U NUM 

IF  <(YPL0T(NPL0T«  J)  .LT.  YH1N>  .OR*  ( YPL0T(NPL0T«  J>  .QT.  YMAX)  > 
1 GO  TO  1010 
JPLOT  ■ JPLOT  ♦ I 
DUMMY  TIJPLOT)  - TPLOT(J) 

DUMMYY(  JPLOT)  ■ YPLOTCNPLOT#  J) 

1010  CONTINUE 

IF  (JPLOT  .EO.  0)  GO  TO  1020 
GO  TO  ( 1011« 1014« 1015)*  NPLOT 

PLOT  HEAD- END  PRESSURE. 

1011  CALL  GRAPHSdBUF.  512*  4«  JPLOT*  11*NT1CY*1MAX«YMAX«  1M1N.YH1N* 

1 I TT*  1 TY  1*  21*  30*  DUMMYT*  DUHMYY*  2*0*  DELY*  T1 TLE) 

GO  TO  1020 

PLOT  N02ZLE  PRESSURE* 

1)  I CALL  0RAPHS(IBUF*512*4*JPL0T*  11*NTICY*THAX*YMAX*TH1N*YMIN* 

1 1 TT*  I TY2*  2 1*  28*  DUMMYT*  DUHMYY*  2*0*  DELY*  TI  TLE) 

GO  TO  1020 

PLOT  PRESSURE  AT  THE  CENTER  (X  > 0*  5>  * 

1015  CALL  GRAPHS!  I BUF*  512*  4*  JPLOT*  11*NTICY*1MAX*  YMAX*  THIN*  YMIN* 

1 I TT*  I TY3*  21*  35*  DIMMYT*  DUMMYY*  2*0*  DELY*  Tl  TLE) 

C 

1020  CONTINUE 


DO 

324  NPLOT  - 

1* 

JMX 

IF 

(MDPLOT(NPLOT) 

*E0*  0>  GO 

TO 

324 

JPLOT  ■ 0 

DO 

328  J123  • 

1* 

2 

IF 

(NPLOT 

*EQ* 

1) 

MTI1L(J123> 

■ 

MTITLKJ123) 

IF 

(NPLOT 

*EQ* 

2) 

MTl  TL(  J123) 

■ 

MT1TL2(J123) 

IF 

(NPLOT 

*E0* 

3) 

MTI  TL(J123> 

■ 

MT1TL3(J123) 

IF 

(NPLOT 

*E0* 

4) 

MT11L(J123> 

• 

MT11L4(J123> 

IF 

(NPLOT 

*EQ* 

5) 

MTITL(J123) 

m 

MTITL5(J123) 

IF 

(NPLOT 

*EQ* 

6) 

MTITL(J123> 

m 

MT11L6(J123) 

328  CONTINUE 

DO  326  J * 1*  NUM 

IF  ((UPLOT(NPLOT* J)  *LT*  YLOMD)  *Ofl*  ( UPLOT( NPLOT* J) 
1 *6T*  YHIMD))  GO  TO  326 

JPLOT  - JPLOT  ♦ 1 
DUmYT(JPLOT>  ■ TPLOT(J) 

DUHMYY( JPLOT)  - UPLOTCNPLOT* J) 

326  CONTINUE 
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I 

IF  (JPLOT  >£0.  0)  60  TO  384 

CALL  GRAPHSdBUF*  512*  4«  JPLOT*  I 1*1  TICK D*  THAX*THIMD*  1M1N* 

1 YLOMD*  1 TT*  M T1 1L*  2 1*  20*  OUHMY  T*  DIJN4YY*  2.  0*  YL  ABM  D*  TI  TL  E> 

324  CONTINUE 

REASSIGN  PLOTTING  PARAMETERS  FOR  NEXT  SET  OF  PLOTS* 

JPLOT  ■ 0 
THIN  - TMAX 
IMAX  * TMAX  * TDEL 

*************  time  history  printed  output  section  **♦♦***********. 

156  IF  (NHISTR  *E0*  0> 

1 WRITE  (6*6011)  NSTEP*  TIME*  (PRESS(J>*  J - 1*3>*  V2GAS*  W2PAR 
LINE  - LINE  ♦ 1 

157  IF  (TIME  .GT*  TQUI T)  GO  TO  250 
IF  (LINE  *LT.  52)  GO  TO  155 
IF  (NHISTR  *£0*  0)  WRITE  (6*6013) 

IF  (NHISTR  .EQ.  0)  WRITE  (6*6022) 

LINE  • 4 

155  I • I ♦ 1 

IF  (1  .LT*  LAST)  60  TO  105 
K > K ♦ 1 

RE- ASSIGN  ARRAYS. 

DO  200  I • 1*  NPl 
ILAST  • LAST  - NPl  ♦ I 
PRS(I)  - PRS( ILAST) 

TKl)  ■ Tl(  ILAST) 

DO  200  J • 1*  NU 
U(I*J)  > U(ILAST*J) 

200  CONTINUE 
60  TO  100 


PRESSURE  MAXIMA  AND  MININA  PRINTOUT  **************** 

250  WRITE  (6*6023)  Z(NLOO*  HAXP 
LINE  > 4 

i DO  255  JST  • 1*  MAXP*  8 

JSTART  • JST 

' JSTOP  • JST  ♦ 7 

IF  (JSTOP  .QT.  MAXP)  JSTOP  ■ MAXP 
WRITE  (6*6024)  (PHAX(J>*  J - JSTART*  JSTOP) 
j WRITE  (6*6084)  (TIMAX(J)*  J - JSTART*  JSTOP) 

[ WRITE  (6*6014) 

LINE  - LINE  ♦ 3 

IP  (LINE  .LT.  52)  GO  TO  855 

LINE  - 0 

WRITE  (6*6013) 

855  CONTINUE 
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CALL  GROVTH(MAXP«  TIMAX»PMAX*FREQ> 
60  TO  5 
300  CONTINUE 


C TURN  OFF  PLOTTING  ROUTINE* 

IF  (NPT  *EQ*  1)  CALL  PLOT!  0*0*  0*0*999 ) 

C 

C ««•*«****«*«*  READ  FORMAT  SPECIFICATIONS 

C 


5000  FORMAT  <7A10> 

5001  FORMAT  (3FI0*0*3I5> 

5002  FORMAT  (2I5*1X*A4> 

5003  FORMAT  < 21 5) 

5004  FORMAT  ( 21  5*  FI  5*8  > 

5005  FORMAT  (31  5*  FI  5*8) 

5006  FORMAT  (7F10*0> 

5007  FORMAT  (I5*2F10*0) 

5008  FORMAT  (6I5> 

5009  FORMAT  (2F10*0*I5> 

5010  FORMAT  <15*4F12*8) 

5011  FORMAT  (7F15*8> 

5013  FORMAT  (4F10*0> 

5014  FORMAT  (615) 

5015  FORMAT  (2F10*0*I5> 


C *************  WRITE  FORMAT  SPECIFICATIONS  *************** 

C 

6001  FORMAT  ( IH  !«//«  6X*  4HUE  F6*  4* //«  6X*  17HNU4BER  OF  MOOES  >« 

1 12«//«6X«7HGAMMA  >*F5*2) 


6002  FORMAT  (//////« 6X« 1 4HNAME  J L/> 

6003  FORMAT  (6X«A4»2I5> 

6004  FORMAT  (1H0«26H  NUMBER  OF  COEFFICIENTS  C(«I  1«  10H«NJ«NP>  lS*15/> 

6005  FORMAT  ( 2X«  2HC(«  I 1*  IH*  « 1 2*  IH*  » I 2*  4H>  • *F10*5> 

6006  FORMAT  ( 1H0«  38H  NUMBER  OF  COEFFICIENTS  D(NJ«NP«NQ>  IS«I5/> 

6007  FORMAT  ( 2X«  2HD(  « 1 2«  IH*  « I 2«  1H««  I 2«  4H>  > «F10*5> 

6008  FORMAT  ( 1H1«  2X*  17HM0T0R  PARAMETERS!  « 1 5X« 

1 8HQAMHA  - « F4*  2*  10X«  19HEX1  T MACH  NUMBER  ■ «F7*5//> 

6009  FORMAT  ( /« 6X*  10H6AMMABAR 

6010  FORMAT  ( 1H0« ////«  6X*  1HJ«  7X«  2HYR*8X*  2HY1  «7X*  3HEPS*  7X*  3HETA//) 

6011  FORMAT  (2X«1  S«F12*5«  5F22*  5) 

6013  FORMAT  ( IHl) 

6014  FOmAT  ( IH  > 

6015  FOmAT  (2X«I  5«4F10*5) 

6016  FORMAT  ( IH !«///«  1X«  36H  INITIAL  CONDITIONS  ARE  OF  THE  FOIMl// 

1 2X«47HU(1«J)  - AC(J)4C0S(FREQ*T>  ♦ AS(  J)*S1N(FRE0»  T)« 

2 ////6X*  1HJ«6X«9HFREQUEMCY*  10X«5HAC(J)«  lOX*  5HA5(  J> //> 

6017  FOmAT  (2X«I  5*4F1S*8/) 

6020  FORMAT  ( IH  1« /«  2X«  4SHC0EFFIC1  ENTS  FQR  COMPUTATION  OP  WALL  PRESSURE* 

1 lOH  WAVEF0RMS////34X*27HC0EFFIC1ENTS  IN  SERIES  FOR!// 

2 37X*4HT1ME*21X*  5HAX1AL/6X*  1HU*7X*  IHZ*  19X*  lOHDERl  VATI VE* 

3 ISX*  lOHDERlVATlVE//) 

6021  FORMAT  ( 2X* I 5* F10*3* 18X* F15* 7* lOX* FI 5«7> 
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6023  FORMAT  < 3X*  AHSTEP*  6X«  4HTIME«  1 5X«8HPRESSURE#  1 4X*  8HPRESSURE#  1 4X« 

1 8HPRE5SURE« I4X#  7HQAS  VEL« I SX«  7HPAR  VEL* /«  34X« 

2 6HAT  Z>0«0*  14X«8HAT  Z- 1 *0«  14X« 6HAT  Z*0«5«13X. 

3 SHAT  Z«0*5# 14X#8HAT  Z-0* 5//> 

6023  FOFMAT  <1HW3BH  PRESSURE  MAXIMA  AND  MINIMA  ATt  Z - «F5*2« 

I /19H  VALUES  COMPUTEDt  *13//) 

6024  FOFMAT  ( IH  *7X*6F13.6) 

6027  FORMAT  ( 2X//2X* 33HTH1 S RUN  PRODUCES  PLOTTED  OUTPUT* > 

6030  FORMAT  ( ///*  6X«  27HPARTI  CLE  DIA  <1N  MICRONS)  ■ «F5*1«10X* 

1 4HCM  -«F4*2*  lOX*  18HFREQ  (IN  HERTZ)  ■ *F6*1*//* 

2 6X*  26HCHAMBER  TEMP  (IN  DEG  K)  > * F6*  1*  lOX*  4HSP  -* 

3 F4.2*  10X*27HRH0M  (IN  KG/CUBIC  METER)  - * F6*  1* //*  6X* 

4 27HPARTICLE  DRAG  CONSTANT*  K •*F8*4«////) 

6031  FORMAT  ( IHO*  32H  NUMBER  OF  COEFFICIENTS  E(NJ*NP*  # * I 1*  4H)  IS*  I 5/) 

6032  FORMAT  ( 2X*  2HE(  * I 2*  IH*  * 1 2*  IH*  * 1 1*  4H)  • *F10*5) 

6033  FORMAT  (/////* 6X* 26HPARTI  CL ES  ARE  NOT  PRESENT*//) 

6034  FOFMAT  ( IHl* ///*  3X*  22HC0MBUST10N  PARMIETERSt  * 5X*  3HA  -*F6*3*6X* 

1 3HB  -*F5*3*  5X*4HEM  •*  F5*  3*  5X*  7H0MEGA  ■*F6*3* 

2 //////*  25X*  IHJ*  16X*4HRESR*  1 5X*  4HRESI  * //) 

6035  FORMAT  ( IHO* 20X* I 5* lOX* FIO* 4*9X* FIO* 4) 

6039  FORMAT  ( ///*  3X*  27HLINEAR  COMBUSTION  RESPONSE*) 

6040  FORMAT  ( ///* 3X* 30HN0NLINEAR  COMBUSTION  RESPONSE! * 5X* 

1 8HBC0HB  ■ *F6*3) 

6041  FOFMAT  (/////*  3X*  24HLINEAR  PARTICLE  DAMPING*) 

END 
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SUBROUTINE  PRSUEL(  UBAR«UMS*  UMA«  P«  V26AS*  UZPAR) 


THIS  SUBROUTINE  COMPUTES  THE  PRESSURE  ANP  VELOCITY* 

UBAR  IS  THE  LOCAL  AXIAL  STEADY  STATE  MACH  NUMBER. 

UMS  IS  THE  DERIVATIVE  OF  1HE  MACH  NUMBER. 

UMA  IS  THE  ARRAY  CONTAINING  VALUES  OF  THE  MODE-AMPLI TUDE 
FUNCTIONS  AND  THEIR  DERIVATIVES* 

P IS  THE  VALUE  OF  THE  PRESSURE  PERTURBATION. 

VZ6AS  IS  THE  AXIAL  COMPONENT  OF  GAS  VELOCITY. 

VZPAR  IS  THE  AXIAL  COMPONENT  OF  PARTICLE  VELOCITY* 


DIMENSION  IMA(24>«  SUM(5).  SUMSQCB) 

COMMON  /BLK3/  NPRTKL.  NJMAX.  NLMAX.  GAMMA#  COEFIB.IB) 

COMMON  /K.K4/  PARTKL#  RHOP*  FROK  IB) 

C 

DO  10  I - 1#  5 
SUM(I)  > 0*0 
10  CONTINUE 
C 

DO  BO  J • 1#  NJMAX 
JY  - J ♦ NJMAX 

BO  SUM(l)  • SUM(1>  ♦ UMA(JY)  * COEF(  J) 

DO  50  J - 1#  NJMAX 

SUH(B)  - SUH(B>  ♦ UMA(J)  * COEF(B«J) 

SUM(3>  - SUM(3>  ♦ UHA(J)  * COEFC  1# J) 

IF  (NPRTKL  *EQ.  0)  GO  TO  50 

SUM(4)  • SUM(4>  ♦ COEF(l.J)  * < PARTt.L  * UMA(J>  - 
1 UHA<J-«>NJMAX)>  / (FRQl(J)f*B  ♦ PARTKL**B) 

SUM(5)  « SUM(5>  COEF(B#J)  * ( PARTKL  * UMA(J)  - UM  A(  J^N  JMAX)  > 
1 / (FRQl(J)*4>a  ♦ PARTKL**8> 

50  CONTINUE 

PLIN  - SUM(l)  ♦ UBAR  * SUM(B>  ♦ UMS  * SUM(  3) 

1 ♦ PARTKL  * RHOP  * ( SUM( 3>  - PARTKL  * SUM(4>) 

PNL  ■ 0.0 

IF  (NLMAX  .EG.  0)  60  TO  40 

DO  30  I - 1#  B 

SUMSQII)  - SUM(I)  * SUM(I> 

30  CONTINUE 

PNL  - 0.5  * (SUMSQ(B)  - SlNSQd)) 

C 

40  P ■ -GAMMA  * (PLIN  ♦ PNL) 

VZ6AS  ■ SUM(B) 

VZPAR  > PARTKL  * SUM(  5> 

C 

RETURN 

END 
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SUBROUTINE  RHS(U*UP) 


COMPLEX  RES(6)«  RESNL(6> 

DIMENSION  U(24)«  UP(24>*  E(12«12*2) 

COMMON  C(2«  24*12)#  D(4«I2*144)*  KPHAX(2*24)*  1C(2*24*12>* 

1 KPQMAX(12>*  IDP(  12*144)*  1DQ(12*144) 

COMMON  /BLK3/  NPRTKL*  NJMAX*  NLMAX*  GAMMA*  C0EF(2*12) 

COMMON  /BLK4/  PARTKL*  RHOP*  FRQK  12) 

COMMON  /ELKS/  RES*  NCOMB*  BCOHB*  E 

IF  (NCOMB  .EQ*  0)  60  TO  116 

JMX  ■ NJMAX/ 2 

DO  118  NJ  • 1*  JMX 

NJPLNJ  • 2*NJ 

NJ2MN1  ■ NJPLNJ  > 1 

RESNL(NJ)  - RES(NJ)  * BCOMB  * SORT  ( UP(NJ2MN 1 )**2> UP( NJPLNJ)**2) 
118  CONTINUE 
116  CONTINUE 

DO  10  NJ  ■ 1*  NJMAX 

NJP  - NJ  NJMAX 

SLl  * 0*0 

SL2  - 0*0 

SNLl  * 0*0 

SNL2  » 0*0 

SNLC  - 0*0 

MAX  • XPMAX(1*NJ) 

IF  (MAX  .EQ*  0)  GO  TO  25 
DO  20  KP  > 1*  MAX 
NP  • IC(  1*NJ*KP) 

SLl  ■ SLl  ♦ (C(1*NJ*KP)  * U(NP)) 

20  CONTINUE 

25  MAX  - KPMAX(2*NJ) 

IF  (MAX  .EQ.  0)  GO  TO  45 
DO  30  KP  > 1*  MAX 
NP  ■ IC(2*NJ*KP) 

SL2  > SL2  ♦ (C(2*NJ*KP)  * U(NP«-NJMAX) ) 

30  CONTINUE 

45  IF  (NLMAX  .EQ.  0)  GO  TO  55 
MAX  > KPQMAX(NJ> 

IF  (MAX  .EQ.  0)  GO  TO  55 
DO  50  KPQ  - 1*  MAX 
NP  - IDP(NJ*KPQ) 

NO  • IDQ(NJ*KPQ) 

SNLl  - SNLl  ♦ D(1*NJ*KPQ)  * U(NP)  * U(NO^NJMAX)  ♦ 

1 D(2*NJ*KP0)  * U(NQ)  4 U(NP4NJMAX) 

SNL2  • SNL2  ♦ D(3*NJ*KPQ>  * U(NP)  « U(NQ)  ♦ 

1 D(4*NJ*KPQ)  * U(NP4NJMAX)  * U(NCMNJMAX) 

50  CONTINUE 
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SS  UP<NJ>  - SLl  ♦ SL2  ♦ SNLl 
SLl  - 0*0 
SL2  ■ 0*0 

MAX  ■ KPMAX(1«NJP) 

IF  (MAX  •EQ*  0)  QO  TO  65 
00  60  KP  - 1*  MAX 
NP  • IC( l«NJP«KP> 

SLl  » SLl  ♦ C(1«NJP«KP>  * U(NP) 

60  CONTINUE 

65  MAX  - KPMAX(2«NJP> 

IF  (MAX  *EQ.  0>  00  TO  75 
DO  70  KP  - 1#  MAX 
NP  > IC(2>NJP«KP) 

SL2  • SL2  ♦ C(2«NJP.KP)  * U(NP^NJMAX) 
70  CONTINUE 

75  UP(NJP)  ■ SLl  SL2  ♦ SNL2 
10  CONTINUE 
RETURN 
END 


I 
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APPROXIMATE  T-BURNER  PROGRAMS 


This  chapter  describes  the  programs  which  determine  the  T-burner  stability 
characteristics,  TBl  and  TB2.  TBl  and  TB2  perform  the  same  tasks  for  T-burners 
as  SOLIDl  and  SOLID2  perform  for  rocket  motors.  The  programs  TBl  and  TB2  have 
the  same  structure  as  programs  SOLIDl  and  S0LID2,  and  many  subroutines  are 
common  between  these  seta  of  programs.  Hence,  the  ensuing  discussion  of  pro- 
grams TBl  and  TB2  is  kept  brief,  and  wherever  possible  one  is  referred  to  the 
discussion  on  programs  SOLIDl  and  S0L1D2. 

4.1  PROGRAM  TBl 

Program  TBl  calculates  the  coefficients  of  both  the  linear  and  nonlinear 
terms  which  appear  in  the  T-bumer  mode-amplitude  equations.  The  coefficients 
to  be  calculated  are  functions  of  various  integrals  of  trigonometric  functions 
(Appendix  C). 

Progr  icture.  The  structure  of  this  program  is  similar  to  that  of 

SOLIDl.  It  vided  functionally  into  five  sections;  (1)  input,  (2)  cal- 
culation near  coefficients,  (3)  calculation  of  the  nonlinear  coeffi- 

cients, (4)  obtaining  the  coefficients  of  the  equivalent  uncoupled  real  system, 
and  (5)  outpiut. 

The  inputs  to  the  program  include  the  description  of  the  T-burner  geome- 
try (length  of  the  propellant  grain,  width  of  the  vent,  ratio  of  radius  to  burner 
length,  effective  vent  plug-flow  length),  velocity  at  the  burning  surface,  in- 
formation about  the  modes  Included  in  the  approximating  series,  particle  char- 
acteristics and  various  control  numbers.  As  In  the  case  of  the  motor,  all  the 
inputs  are  supplied  to  the  main  program. 

As  explained  in  Volume  I,  the  axial  acoustic  eigenvalues  for  the  T-burner 
are  those  for  a cylinder  with  hard  walls  at  both  ends.  In  other  words,  the  eigen- 
value for  the  n^  axial  mode  is  simply  rnr  and  the  eigenfunctions  are  real  numbers. 
Hence,  program  TBl  does  not  include  subroutines  EIGVAL  and  FCNS  which  were  present 
for  program  SOLIDl.  The  integrals  of  the  products  of  two  axial  eigenfunctions  and 
the  steady-state  quantities  are  computed  by  means  of  subroutines  AXIALl  and  STEADY, 
The  linear  coefficients  are  then  calculated  and  normalized  by  dividing  by  the  co- 
efficient of  the  highest  derivative  (i.e.,  CQ(j,j)). 


In  the  third  section,  the  integrals  of  products  of  three  axial  eigenfunc- 
tions are  computed  using  the  subroutine  AX1AL2  and  the  complex  nonlinear  coeffi- 
cients are  calculated. 


The  remaining  two  sections  are  the  same  as  in  SOLIDl. 

Description  of  Input.  The  input  deck  for  Program  TBl  is  the  same  as  for 
Program  SOLIDl , except  the  second  and  third  cards  which  give  Information  about 
burner  geometry  and  vent  effect  as  described  below.  Furthermore,  the  nozzle 
admittance  data  card  is  absent  from  the  data  deck.  A complete  list  of  inputs 
is  given  below. 

The  first  card  gives  the  title  of  the  case. 

Second  card;  GAM,  BETA,  BETAV,  RRL,  UB,  VL,  EL 
GAM  is  the  specific  heat  ratio. 

BETA  is  the  ratio  of  the  length  of  the  two  cup  grains  to  the  length  of 
the  T-burner. 

BETAV  is  the  ratio  of  the  vent  width  to  the  length  of  the  burner. 

RRL  is  the  radius-to-length  ratio. 

UB  is  the  velocity  at  the  burning  surface, 

VL  determines  the  vent  effect: 

VL  = 0 vent  gain. 

VL  = 1 no  effect. 

VL  = 2 vent  loss. 

EL  is  the  effective  vent  length. 

Third  card;  NJMAX,  N0NUN,  NEGL,  N0UT,  NPRTKL,  NBURN 

NJMAX  is  the  number  of  mode-amplitude  fui^ctions  in  the  assumed  series 
solution. 

The  coefficients  computed  are  determined  by  N0NLIN  as  follows: 

N0NL1N  = 0 linear  coefficients  only, 

N0NLIN  = 1 both  linear  and  nonlinear  coefficients. 

Coefficients  to  be  neglected  are  determined  by  NEGL  as  follows: 

NEGL  “ 0 terms  smaller  than  0.00001  are  neglected, 

NEGL  • 1 linear  terms  smaller  than  SMI  and  nonlinear  terms  smaller 
than  SM2  are  neglected. 

The  output  is  determined  by  N0UT  as  follops:  ' 

N0UT  > 0 printed  output  only. 

N0UT  • 1 write  into  a file  and  print  output. 

N0UT  «•  2 wtite  into  a file  only. 

NPRTKL  determines  whether  the  particles  are  present: 

NPRTKL  ~ 0 particles  not  present. 

NPRTKL  > 1 particles  present. 
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NBURN  indicates  whether  end  burning  is  present; 

NBURN  = 0 not  present. 

NBURN  = 1 present. 

Next  card  (necessary  only  if  NPRTKL  = 1):  DIA,  RH0M,  SP,  TEMP,  FREQ,  CM 
DIA  is  the  particle  di^lmeter,  in  microns. 

3 

RH(!M  is  the  density  of  the  particle  material,  in  Kg/m  . 

SP  is  the  ratio  of  the  specific  heats  of  particle  material  and  gas. 

TEMP  ia  the  chamber  temperature,  in  degrees  Kelvin. 

FREQ  is  the  frequency  of  oscillation  in  pure  gas,  in  Rertz. 

CM  is  the  particle  loading. 

Next  card  (necessary  only  if  NEGL  =1):  SMI,  SM2 
SMI  and  SM2  are  as  defined  above. 

Next  NJMAX  cards:  J,  L(J),  NAME(J) 

Each  mode -amplitude  is  assigned  an  integer  J. 

The  mode  is  specified  by  the  index  L(J). 

L(J)  is  the  axial  mode  number  and  must  not  exceed  NJMAX. 

NAME(J)  is  a four-character  name  for  the  mode. 

Description  of  the  Subroutines.  The  different  subroutines  included  in 
program  TBl  are  described  below: 

SUBRtXJTINE  AXlALl  (N0PT.  NP.  MJ . RESULT).  This  subroutine  calculates 
the  different  integrals  which  appear  in  the  expressions  for  the  coefficients 
of  the  linear  terms  in  the  T-burner  amplitude  equations.  While  this  subroutine 
performs  the  same  function  for  TBl  as  its  counterpart  performs  in  SOLIDl , the 
two  versions  of  AXIALl  differ  considerably  in  their  details.  The  T-bumer  ver- 
sion of  AXIALl  returns  the  compruted  value  of  the  desired  integral  under  the 
name  RESULT  according  to  the  value  of  N0PT  as  follows; 

N0PT  = 1 RESULT  •= 

N0PT  = 2 RESULT  » 


f X X 

J P j 


dx 


V d^X 
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NOPT  = 3 


■I 


RESULT  = 1 ^ X X,  dx 
‘ dx  p J 


N«>PT  = 4 


RESULT  = 


d X 


A — ‘ ^4 

dx  j 


N0PT  = 5 


RESULT 


J P 


p X X dx 
P j 


N0PT  = 6 


N0PT  = 7 


r 

RESULT  = p u X.  dx 

J p dx  J 


dX 


RESULT  = I u J— *■  X,  dx 

J p dx  j 

0 

1 


P du 

N0PT  = 8 RESULT  = J X^  X^  dx 


P/2  1 

N0PT  = 9 RESULT  = J X^  X^  dx  + J g X^X^  dx 

o 1-8/2 

(l+^)/2  dG 

N0PT  = 10  RESULT  = J ^p 

(l-^)/2 


(l+q,)/5 


N0PT  =11  RESULT 


(l-^)/2 


^ X X,  dx 
dx  p j 


In  the  above  expressions,  X and  X are  the  axial  eigenfunctions  for  the 

^ 3 

p and  j axial  mode,  with  p and  J being  equal  to  NP  and  NJ  respectively,  and 

u and  u are  the  local  steady-state  velocities  of  the  gas  and  particles  respec- 
P 

tlvely.  Also  is  the  local  steady-state  density  of  the  particles,  and  8 and  8^ 
are  the  dimensionless  propellant  cup  length  and  vent  width  as  defined  in  Volume  I, 
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The  required  eigenvalues  B are  obtained  from  the  main  program  through  the  blank 
fonmon;  g and  are  obtained  through  common  block  BLX7,  The  steady-state  quan- 
tities are  obtained  from  the  subroutine  STEADY,  The  integrals  for  N0PT  = 1 and 
N0PT  * 2 are  obtained  analytically,  but  for  the  other  cases  a numerical  integra- 
tion scheme  using  Simpson's  rule  is  employed. 


1 


SUBR0UT1NE  AX1AL2  (N0PT,  NP.  NQ.  NJ . RESULT).  This  subroutine  returns 
RESULT  with  the  value  of  the  following  integrals: 


N0PT  = 1 


N0PT  = 2 


1 


RESULT 


1 


RESULT  = 


I 


Xj  dx 


X X.  dx 

q J 


when;  X^,  X^  and  X.  are  the  p*"^,  q^^  and  eigenfunctions  respectively.  Sub- 
scripts p(=NP),  q(=NQ)  and  j(=NJ)  represent  the  axial  mode  numbers.  The  eigen- 
values B are  supplied  to  the  subroutine  through  blank  common.  All  the  quantities 
involved  in  these  integrals  are  real  numbers,  the  eigenfunctions  are  trigonomet- 
ric functions,  and  the  integrals  are  evaluated  in  the  subroutine  analytically. 


SUBR0UTINE  STEADY  (X.  UBAR.  UPBAR.  RH0P.  DUBAR.  DUPBAR) . This  subroutine 
computes  the  steady-state  flow  variables  at  a specified  location  X in  the  T-burn- 
er.  UBAR  and  UPBAR  are  the  computed  steady-state  velocities  of  the  gas  phase  and 
particle  phase  respectively,  DUBAR  and  DUPBAR  are  their  axial  derivatives,  and 
RH0P  is  the  steady-state  value  of  the  particle  density.  All  of  these  quantities 
are  calculated  according  to  the  steady-state  equations  given  in  Section  2.6  of 
Volume  I,  Caramon  block  BLK7  supplies  the  information  necessary  to  compute  these 
variables. 


SUBR0UTINE  GJR  (A.  NC . NR.  N.  MC.  JC.  V).  This  subroutine  is  identical 
to  the  one  used  in  Program  SOLIDl  and  described  in  Section  3.1. 

Description  of  Output.  The  arrangement  of  outftut  and  the  variables  con- 
trolling the  output  are  the  same  as  for  Program  SOLIDl  as  described  in  Section 
3,1.  As  before,  two  modes  of  output  - printed  output  and  disk  storage  - are  avail- 
able and  the  disk  is  given  the  I/O  device  number  9.  The  data  is  written  on  the 
disk  by  setting  N0UT  » 1 or  N0UT  • 2,  and  the  data  on  the  disk  forms  part  of  the 
inpait  to  Program  TB2  to  be  described  in  Section  4.2. 
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■Sample  OnHf.  Tlic  Hnmple  caac  which  la  considered  here  refers  Uo  a 
T-burner  with  radius  to  length  ratio  of  0.05071  and  a vent  whose  width  is 
107.  of  the  total  length  of  the  burner.  The  total  length  of  the  propellant 
grain  is  107.  of  the  total  length  of  the  burner  (57.  at  either  end),  y is 
1.23  and  the  burning  velocity  at  the  propellant  surface  is  0.001978.  The 
particles  are  2.5  microns  in  diameter  with  a particle  loading  of  0.36.  The 
pure-gas  frequency  of  oscillation  is  1071  Hertz,  and  the  temperature  in  i.h? 
T-burner  is  3525°K.  The  first  five  longitudinal  modes  are  considered,  and 
it  is  desired  to  obtain  a printed  output  as  well  as  disk  storage  of  gener- 
ated data  so  that  they  may  be  used  for  checking  out  program  TB2  later. 

An  input  deck  needed  for  running  program  TBl  with  the  above  T-burner 
conditions  is  illustrated  on  the  next  page.  The  printed  output  generated  by 
the  program  TBl  for  this  input  is  shown  in  the  following  pages. 
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CECOUFI.EO  CCEFFICIENT  OF  8(P>a 


CcCOtPLcO  CCEFPICIEKT  OF  B(P)l 


CECOUFLeO  CCEFFIClEtiT  OF  THE  OERXVATltfE  OF  3(F)  1 


C£C0UFlc3  CCEFnCICKT  OF  THE  CERIVATIVE  OF  BIPti  C(^tJtP) 


o 


<M 


o 

o 


OCCOUFLEO  CCEFFXCIENT  OF  THE  COHOUSTICN  TERH 
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coefficients  in  the  particle  ECUATIONSI  CPAR<J,P) 


OeCaUPtEO  nonlinear  coefficient  in  SA£  equation  for  9(  2) 


1 


OECOUPccO  nonlinear  coefficient  in  GAi  EQUATION  FCR  3(  LI 


4 


OCCJUPlCO  tiOMklNEAR  COEFFICIENT  IN  GAS  EQUATION  fOU  3(  6) 


OCCOUPlEO  hOMLlKEAR  COEFFICIENT  IN  CAS  EQUATIJN  FOK  S(  A) 


FCBITRAN  Source  Code. 
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PROGRAM  TBK  INPUT*OUTPUT*  DATA, 

1 TAPES- INPUT,  TAPE6-0UTPUT,  TAPE9-DATA) 


THIS  PROGRAM  COMPUTES  THE  COEFFICIQJTS  WHICH  APPEAR 
IN  THE  DIFFERENTIAL  EOUATIONS  WHICH  GOVERN  THE  MODE-AMPLI  TUDE 
FUNCTIONS.  THESE  COEFFICIENTS  CAN  BE  WRITTEN  INTO  A FILE 
FOR  INPUT  TO  PROGRAM  TB2. 

THE  FOLLOWING  INPUTS  ARE  REOUI  REDt 

THE  FIRST  CARD  GIVES  THE  TITLE  OF  THE  CASE. 

SECOND  CARDt  GM1,  BETA,  BETAV,  RRL,  UB,  VL,  EL 
GM4  IS  THE  SPECIFIC  HEAT  RATIO. 

BETA  IS  THE  RATIO  OF  THE  LENGTH  OF  THE  TWO  CUP  GRAINS 
TO  THE  LENGTH  OF  THE  T-BURNER. 

BETAV  IS  THE  RATIO  OF  THE  VENT  WIDTH  TO  THE  LENGTH 
OF  THE  BURNER. 

RRL  IS  THE  RADI  US-TO-LENGTH  RATIO. 

UB  IS  THE  VELOCITY  AT  THE  BURNING  SURFACE. 

VL  DETERMINES  THE  VENT  EFFECT! 

VL  ■ 0 VENT  GAIN. 

VL  - 1 NO  EFFECT. 

VL  - 2 VENT  LOSS. 

EL  IS  THE  EFFECTIVE  VENT  LENGTH. 

THIRD  CARDt  NJMAX,  NONLIN,  NEGL,  NOUT,  NPRTKL,  NBURN 

NJMAX  IS  THE  NUMBER  OF  MODE-M4PLI  TUDE  FUNCTIONS  IN  THE  ASSUMED 
SERIES  SOLUTION. 

THE  COEFFICIENTS  COMPUTED  ARE  DETERMINED  BY  NONLIN  AS  FOLLOWS! 
NONLIN  - 0 LINEAR  COEFFICIENTS  ONLY 
NONLIN  - 1 BOTH  LINEAR  AND  NONLINEAR  COEFFICIENTS. 
COEFFICIENTS  TO  BE  NEGLECTED  ARE  DETEItUNED  BY  NEGL 
AS  FOLLOWS! 

NEGL  « 0 TERMS  SMALLER  THAN  0.00001  ARE  NEGLECTED. 

NEGL  - 1 LINEAR  TERMS  SMALLER  THAN  SMI  AND  NONLINEAR 
TERMS  SMALLER  THAN  SM2  ARE  NEGLECTED. 

THE  OUTPUT  IS  DETERMINED  BY  NOUT  AS  FOLLOWS! 

NOUT  ■ 0 PRINTED  OUTPUT  ONLY 

NOUT  - 1 WRITE  INTO  A FILE  AND  PRINT  OUTPUT. 

NOUT  - 2 WRITE  INTO  A FILE  ONLY. 

NPRTKL  DETERMINES  WHETHER  THE  PARTICLES  ARE  PRESENT! 

NPRTKL  - 0 PARTICLES  NOT  PRESENT. 

NPRTKL  ■ 1 PARTICLES  PRESENT. 

NBURN  INDICATES  WHETHER  END  BUFMIN6  IS  PRESENT! 

NBURN  - 0 NOT  PRESENT. 

NBURN  - 1 PRESENT. 
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C NEXT  CARD  ( ONLY  IF  NPhTKL-l)l  DI  A#  RHOM*  SP*  TEMP*  FhEU*  CM 

C DIA  IS  THE  PARTICLE  DIAMETER*  IN  MICRONS* 

C RHOM  IS  THE  DENSITY  OF  THE  PARTI  CL  E MATERI AL*  IN  KG/M**3* 

C SP  IS  THE  RATIO  OF  THE  SPECIFIC  HEATS  OF  PARTICLE  MATERIAL 

C AND  GAS* 

C TEMP  IS  THE  CHAMBER  TEMPERATURE*  IN  DEGREES  KELWN* 

C FREQ  IS  THE  FREQUENCY  OF  OSCILLATION  IN  PURE  GAS*  IN  HERTZ* 

C CM  IS  THE  PARTICLE  LOADING* 

C 

C NEXT  CARD  CNECESSARY  ONLY  IF  NEGL  • I)t  911*  SH2 
C SMI  AND  SM2  ARE  AS  DEFINED  ABOVE* 

C 

C NEXT  NJMAX  CARDSt  J*  L(J)*  NAME(J) 

C EACH  MODE'AMPLI  TUDE  IS  ASSIGNED  AN  INTEGER  J* 

C THE  MODE  IS  SPECIFIED  BY  THE  INDEX  L<J)* 

C L(J)  IS  THE  AXIAL  MODE  NUMBER  AND  MUST  NOT  EXCEED  NJMAX* 

C NAME(J)  IS  A FOUR- CHARACTER  NAME  FOR  THE  J TH  MODE* 

C 

C 

C 0^mtt*im**mti^^m«*********************************m*********** ******* 

C 

C 

C 

DIMENSION  L(6>*  NAMEI6)*  T1TLE(7>*  V(2)*  JC(12>*  C(4*12*24)* 

1 C1(12*I2)*  D(  12*  12*  12)*  KMAXC5)*  TSQ(IS)*  TS(4*12)* 

2 C1PAR(  12*  I2>*  CPAR(  12*24)*  TSPAR(12)*  AX1NT(2)* 

3 AX(ll)*  CC(4*6*I2)*  CN0RM(12)*  CCPAR(  2*  6*  1 2)  * 

4 CCU(6)*  CV(12)*  TSV(I2) 

COMPLEX  CDI(6*6*6)*  CD2(6*6*6)*  CD3(6*6*6)*  C04(6*6*6)*  Cl 

COMMON  B(6) 

COMMON  /BLK7/BETA*  BETAV*  RRL*  UB*  PARTKL*  CM*  NPH1KL*  NBUHN 

DATA  INPUT* 

MAXMD  - 6 
MAXMD2  - 12 
MAXMD4  - 24 
PI  - 3*1415926536 
911  - 0*00001 
SM2  - 0*00001 
Cl  • (0*0* 1*0) 

INPUT  PARAMETERS* 

4 READ  (5*5000)  TITLE 
IF  (E0F(5>)  600*  1 
1 CONTINUE 

READ  (5*5001)  GAM*  BETA*  BETAV*  RRL*  UB*  VL*  EL 
READ  (5*5004)  NJMAX*  NONLIN*  NEGL*  NOUT*  NPRTKL*  NBURN 
IF  (NPRTKL  *EQ*  1)  READ  (5*5006)  DIA*  RHOM*  SP*  TEMP*  FREQ*  CM 
GAMMA  > GAM  • (1*0  ♦ SP*CM)  / (1*0  ♦ QM4*SP*CM) 

IF  (NEGL  *E0*  1)  READ  (5*5005)  SMI*  SMB 
DO  10  1 - 1*  NJMAX 
HEAD  (5*5002)  J*  L(J)*  NAME(J) 

B(I)  - PI  * I 
10  CONTINUE 
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NJMAXe  - NJMAX 

IF  <NPRTKL  .EQ*  1)  NJMAX2  • S * NJMAX 

ZE  - 1*0 

ZCOMB  - 1*0 

CAX  • GAMMA  ♦ 1*0 

AV  - PI  * BETAV  * BETAV  / 4*0 

BETAVl  • PI  « (BETAV  ♦ 1*0)  / 2*0 

BETAV2  - PI  * (BETAV  - NO)  / 2*0 

IF  (NPR1KL  .EQ.  0)  GO  TO  14 

Vise  • 8.834  * 0.00001  * ( TEMP/3485.  }*«>0. 66 
PARTKL  - (9.0  * Vise)  / (RHOM  * FREQ  * D1 A * D1 A *I0.«*( 
14  eONTlNUE 

eALeULATE  LINEAR  eOEFFl  ei  EMTS. 


00  100  NJ  ■ N NJMAX 

IF  (BETAV  .LT.  0.00001 ) GO  TO  110 
eeV(NJ)  ■ AV  4 ( SI N(NJ4 BETAVl)  - SIN(N J*BETAV2) ) 
I / ( BETAV  * NJ  4 PI ) 

110  DO  100  NP  • N NJMAX2 

ZERO  eOEFFieiENT  ARRAYS. 

DO  105  KG  • N 4 
ee(KG«NJ«NP)  • (O.O.O.O) 

105  eONTlNUE 

eePAR(  NNJ«NP)  - eePAR(2*NJ«NP)  - 0.0 
NPM  - NP 
NJM  - NJ 

IF  (NP  .GT.  NJMAX)  NPM  ■ NP  - NJMAX 

GALGULATE  AXIAL  INTEGRALS. 

DO  130  NOPT  -Nil 

GALL  AXIAL1(N0PT.NPM«NJM«GRSLT) 

AX(NOPT)  - GRSLT 
130  GONTINUE 


EVALUATE  FUNGTIONS  AT  THE  EMD. 
ZEJ  - GOS(B(NJM)  * ZE) 

ZEPl  - GOS(B(NPM)  * ZE) 


IF  (NP  .GT.  NJMAX)  GO  TO  704 

GOEFFIGIENT  OF  THE  SEGOND  DERIVATIVE  OF  A(P). 
GG(NNJ«NP)  - AX(1) 


GOEFFIGIENT  OF  A(P). 
GG(2«NJ«NP)  - - AX(2) 
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C COEFFICIENT  OF  THE  FIRST  DERIVATIVE  OF  A<P). 

CC(3«NJ*NP)  - 2.0*AX(4>  ♦ CAX*AX(3)  ♦ PARTKL*AX(  5)  • 

1 VL*AX(11)  ♦ QAHMA  * UB  * NBURN  * (1.0  ♦ ZEJ*ZEP1> 

CC(4.NJ.NP>  > - GAMMA  * (AX(9>  ♦ UB  * NBURN  * ( 1 . 0*-ZEJ*ZEPI > > 
CCPAR(8«NJ«NP)  - - PARTKL  * AXU) 

60  TO  100 
C 

704  CC(3«NJ*NP)  • - PARTKL  * AX(5>  - (GAMMA  - 1.0)  * AX(6> 

CCPAR( l.NJ.NP)  - AX(1> 

CCPAR( R.NJ.NP)  • PARTKL«AX(1>  ♦ AX(7>  ♦ AX(8>  > VL*AX( 10) 

C 

100  CONTINUE 

NORMALIZE  LINEAR  COEFFICIENTS. 

DO  140  NJ  ■ 1«  NJMAX 
CNORM(NJ)  - CC( l.NJ.NJ) 

CV(NJ)  - CV(NJ)  / CNORM(NJ) 

DO  140  NP  • NJMAX2 

DO  140  KC  - 4 

CC(KC.NJ.NP)  - CC(KC«NJ.NP)/CNOFM(NJ) 

140  CONTINUE 

IF  (NPRTXL  .EQ.  0)  GO  TO  1005 
DO  1030  NJ  - l.NJMAX 
NJM  ■ NJ  ♦ NJMAX 
CNOHM(NJM)  - CCPAR(  l.NJ.NJM) 

DO  1030  NP  ■ 1.  NJMAX2 
DO  1030  KC  - 1#  2 

CCPAR(KC«NJ«NP)  - CCPAR(KC*NJ«NP)/CNOHM(NJM) 

1030  CONTINUE 
1005  CONTINUE 


COMPUTE  NONLINEAR  COEFFICIENTS. 

IF  (NONLIN  .EQ.  0)  GO  TO  402 
61  ■ (GAMMA  - 1.0)  * 0.5 
C 

DO  200  NJ  • 1«  NJMAX 
DCOEF  • 0.5  / CNORM(NJ) 

DO  200  NP  - 1#  NJMAX 
DO  200  NO  - 1*  NJMAX 
C 

CDKNJ.NP.NQ)  • (0*0.0. 0) 
CDB(NJ.NP.NQ)  • (0*0#0*0) 
CD3(NJ#NP«NQ>  - (0*0«0*0) 
CD4(NJ«NP«NQ>  - (0*0. 0*0) 

C 

DO  240  J • 1.  2 
CALL  AXIAL2( J.NP.NO.NJ.CRSLT) 
AXINT(J)  ■ CRSLT 
240  CONTINUE 
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CD1(NJ*NP*NQ)  « 

CD4(NJ*NP*NQ)  B 

(AX1NT(  1)  ♦ 

G1  * 

AXINT(2))  * 

1 

DCOEF  * ( 1.0*-  1 

.0) 

CD2(NJ*NP*NQ>  B 

CD3(NJ*NP*NQ)  B 

<AXINT(  1)  ♦ 

G1  • 

AXINT(2))  * 

1 DCOEF  * ( 1.0*  1*0) 

200  CONTINUE 

*^****m*********************************************************** 

CALCULATE  COEFFICIENTS  FOR  EQUIVALENT  REAL  SYSTEM. 

402  DO  350  NJ  - 1*  NJMAX 
NEWJ  - (2  * NJ)  • 1 
NEWJl  - NEWJ  ♦ 1 
CV(NEWJ)  > CV(NEWJI)  - CCV(NJ) 

DO  360  NF  - 1«NJMAX2 
NEWP  ■ 2 * NP  - 1 
NEWPl  > NEWP  ♦ 1 

COEFFICIENTS  OF  LINEAR  TERMS. 

IF  (NP  .GT.  NJMAX)  GO  TO  1040 

C1(NEWJ«NEWP)  - C1(NEWJ1*NEWP1)  - CC(  1*NJ*NP) 

1040  CONTINUE 

C(4*NEWJ*NEWP1)  B • CC(4«NJ*NP) 

C(  4*NEWJ1*NEWP)  B CC(4«NJ*NP) 

DO  360  KC  B 1,  3 

C(KC» NEWJ* NEWP)  ■ CCKC*NEWJ  1*NEWP1 ) b CC(KC4- 1*NJ*NP) 

360  CONTINUE 


COEFFICIENTS  OF  NONLINEAR  TERMS. 

IF  (NONLIN  ;EQ.  0)  GO  TO  350 

DO  370  NP  B l,  NJMAX 

NEWP  B 2 « NP  - 1 

NEWPl  B NEWP  ♦ 1 

00  370  NQ  B i«  NJMAX 

NEWQ  B (2  * NQ)  - 1 

NEWQl  B NEWQ  ♦ 1 

CDIR  B REAL(CDKNJ*NP*NQ)  ) 

CDll  B AIMAG(CD1(NJ*NP*NQ)) 

CD2R  - REAL(C02(NJ*NP*NO)) 

CD21  B A1MAG(CD2(NJ*NP*NQ)) 

CD3R  • REAL(CD3(NJ*NP*NQ> ) 

CD31  B AIMAG(CD3(NJ*NP*NQ)) 

CD4R  B REAL(CD4(NJ*NP*NQ)) 

CD4I  • A1MAG(CD4(NJ*NP*N0)) 

D(NEWJ*NEWP*NEWQ)  b CDIR  * CD2R  * CD3R  * CD4R 
D( NEWJ* NEWP* NEWQl)  b -CDII  ♦ C02I  • CD31  ♦ CD41 
D(NEWJ* NEWPl* NEWQ)  b -CDII  - CD21  ♦ CD3I  ♦ CD41 
D<NEWJ*NEWP1*NEWQ1)  b -CDIR  ♦ CD2R  ♦ CD3R  - CD4R 
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0(NEWJI«NEWP*NEW0)  - CDII  ♦ CD21  ♦ CD3I  ♦ CD41 
D(NEVJ1«NEWP#NEW01>  ■ CDIR  - CD2R  ♦ CD3R  - CD4R 
D(NEVJ1«NEWP1«NEWQ>  • CDIR  *■  CDSR  • CD3R  - CD4R 
0(NEWJ1«NEVP1«NEWQ1)  ■ -CDII  ♦ CD21  ♦ CD31  - CD4I 
370  CONTINUE 
350  CONTINUE 
C 

IF  (NPRTKL  .EO.  0)  GO  TO  1035 

DO  1050  NJ  ■ I«  NJMAX 

NEWJ  - 2 * NJ  - I 

NEWJI  - NEWJ  ♦ I 

DO  1050  NP  « I«  NJMAX2 

NEWP  - 2 * NP  - I 

NEWPI  - NEWP  ♦ I 

CPAR(NEWJ«NEWP)  ■ CPAR( NEWJ  I«NEWPI ) ■ CCPAR(  2* NJ« NP) 

IF  (NP  .LE.  NJMAX)  GO  TO  1050 
NEWP  - NEWP  - NJMAX2 
NEWPI  • NEWP  ♦ I 

CIPAR(NEWJ«NEWP)  - CIPAR(NEWJI*NEWPI ) « CCPARC  I«NJ«NP) 

1050  CONTINUE 
1035  CONTINUE 

*0***********************m*******<^0**0*m*************0************ 


COMPUTE  COEFFICIENTS  FOR  THE  EQUATIONS  WHICH  ARE  DECOUPLED 
IN  THE  SECOND  DERIVATIVES* 

DO  405  KC  ■ I«  5 
KMAX(KC)  ■ 0 
405  CONTINUE 

CALCULATE  INVERSE  OF  THE  MATRIX  CI(I«J). 

UMAX  - NJMAX 
NJMAX  « 2 * NJMAX 
JMAX2  ■ NJMAX2 
NJMAX2  • 2 * NJMAX2 


V(I)  ■ I 

CALL  6JR(CI«MAXMD2«MAXMD2*NJMAX«0«  JC*  V) 

USE  INVERSE  TO  CALCULATE  DECOUPLED  COEFFICIENTS* 


LINEAR  COEFFICIENTS* 

DO  430  NP  « I<  NJHAX2 
DO  420  NJ  ■ I*  NJMAX 
DO  420  KC  ■ I«  4 
TS(KC«NJ)  ■ 0*0 
DO  420  K > I#  NJMAX 

TS(KC*NJ)  - TS(KC«NJ)  ♦ CI(NJ«K)  * C(KC«K«NP) 
420  CONTINUE 
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DO  430  NJ  ■ 1*  NJMAX 
DO  430  KC  > 1«  4 
CCKC*NJ«NP)  ■ TS(KC#NJ) 

ABSVAL  - ABS(C(KC*NJ«NP>> 

IF  (ABSVAL  *GE.  SMI)  KMAX(KC)  - KMAX(KC)  ♦ l 
430  CONTINUE 
C 

DO  720  NJ  - 1*  NJMAX 
TSV(NJ)  ■ 0.0 
DO  720  K - 1*  NJMAX 

TSV(NJ)  - TSV(NJ)  ♦ C1(NJ«K)  * CV(K> 

720  CONTINUE 

DO  730  NJ  » 1#  NJMAX 
CV(NJ)  ■ TSV(NJ) 

730  CONTINUE 
C 

IF  (NPRTKL  .EQ.  0)  GO  TO  1060 
KMAXPR  > 0 
V(I)  « I 

CALL  GJR(C!PAR«MAXMD2«MAXMD2*NJMAX*0*  JC*  V) 

DO  1065  NP  • 1.  NJMAX2 
DO  1070  NJ  - 1*  NJMAX 
TSPAR(NJ)  - 0*0 

I DO  1070  K ■ 1#  NJMAX 

TSPAR(NJ)  ■ TSPAR(NJ)  ♦ C1PAR(NJ«K)*CPAR(K«NP> 
1070  CONTINUE 

DO  1065  NJ  - 1«NJMAX 
CPAR(NJ«NP)«TSPAR(NJ) 

ABSVAL  ■ ABS(CPAR(NJ*NP>> 

IF  (ABSVAL  .6E.  SMI)  KMAXPR  > KMAXPR  ♦ 1 
1065  CONTINUE 
1060  CONTINUE 


NONLINEAR  COEFFICIENTS. 

IF  (NONLIN  *EQ.  0)  GO  TO  410 
DO  735  NP  ■ 1«  NJMAX 
DO  735  NO  • 1*  NJMAX 
DO  440  NJ  - 1*  NJMAX 
TSO(NJ)  > 0.0 
DO  440  K - 1*  NJMAX 

TSQ(NJ)  ■ TSQ(NJ)  ♦ CI(NJ«K)  * D(K*NP«NQ) 
440  CONTINUE 

DO  445  NJ  - I,  NJMAX 
D(NJ*NP>NQ)  ■ TSO(NJ) 

ABSVAL  • ABS(  D(NJ«NP«NQ)  ) 

IF  (ABSVAL  «GT.  SM2)  KHAX(  5)  > KMAX(  5)  ♦ 1 
445  CONTINUE 
7 35  CONTINUE 
410  CONTINUE 
C 
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OUTPUT. 

IF  CNOUT  .EO.  2)  GO  TO  455 
WKl  TE  <6«6001>  TI  TI.E 

WHITE  (6«6002>  GAM*  BETA*  BETAU*  RHL*  UB*  VL 
IF  (N3URN  .EQ.  0)  WRITE  (6*6025) 

IF  (NBURN  .EO.  1)  WRITE  (6*6026) 

IF  CNPRTKL  .EO.  0)  WRITE  (6*6022) 

IF  (NPRTKL  .EO.  1)  WRITE  (6*6021)  DIA*  CM*  FREQ* 
1 TEMP*  SP*  RHOM*  PARTKL 

WRITE  (6*6004) 

DO  310  J - I*  UMAX 

WRITE  (6*6003)  NAME(J)*  J*  L(J)*  B(J) 

310  CONTINUE 

IF  (NONLIN  .EC.  C)  WRITE  (6*6013) 

OUTPUT  OF  LINEAR  COEFFICIENTS. 

DO  320  KC  - 1*  4 
NJS  - 0 
NJF  - 0 
KOUNTJ  - 1 
758  NJS  • NJF  ♦ 1 

NJF  - 10  * KOUNTJ 
IF  (NJF  .QT>  NJMAX)  NJF  > NJMAX 
\ NPS  - 0 

NPF  ■ 0 
KOUNTP  - I 
754  NPS  ■ NPF  ♦ 1 

NPF  ■ 10  • KOUNTP 

IF  (NPF  .GT.  NJM/0(2)  NPF  - NJMAX2 
IF  (KC  .EQ.  1)  WRITE  (6*6005) 

IF  (KC  .EQ.  2)  WRITE  (6*6006) 

IF  (KC  .EQ.  3 .OR.  KC  . EQ.  4)  WRITE  (6*6007) 
WRITE  (6*6008)  (NP*  NP  • NPS*  NPF) 

WRITE  (6*6014) 

DO  750  NJ  » NJS*  NJF 

WRITE  (6*6009)  NJ*  ( C(KC*NJ*NP)*  NP  ■ NPS*  NPF) 
750  CONTINUE 

IF  (NPF  .EQ.  NJMAX2)  GO  TO  752 
KOUNTP  • KOUNTP  ♦ 1 
GO  TO  7 54 

7 52  IF  (NJF  .EQ.  NJMAX)  GO  TO  7 56 
KOUNTJ  - KOUNTJ  ♦ 1 
GO  TO  758 
756  CONTINUE 
320  CONTINUE 
C 

IF  (NPRTKL  .EQ.  0)  GO  TO  1080 
NJS  ■ 0 
NJF  * 0 
KOUNTJ  - I 
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1072  NJS  ■ NJF  ♦ I 

NJF  - 10*K0UN1J 

IF  (NJF  •6T>  NJMAX)  NJF  • NJMAX 
NFS  - 0 
NPF  « 0 
KOUNTP  - 1 
1074  NPS  • NPF^  1 

NPF  • 104K0UNTP 

IF  (NPF  *GT*NJMAX2)  NPF  - NJHAX2 
WRITE  (6*6023) 

WRITE  (6*6006)  (NP*  NP  ■ NPS*NPF) 

WRITE  (6*6014) 

DO  1076  NJ  > NJS*NJF 

WRITE  (6*6009)  NJ*  ( CPAR(NJ*NP)*NP  * NPS*NPF) 

1076  CONTINUE 

IF  (NPF  .EQ.  NJMAX2)  60  TO  1078 
KOUNTP  - KOUNTP  ♦ 1 
GO  TO  1074 

1078  IF  (NJF  .EO.  NJMAX)  60  TO  1060 
KOUNTJ  • KOUNTJ  ♦ 1 
GO  TO  1072 
t 1080  CONTINUE 

C OUTPUT  OF  NONLINEAR  COEFFICIENTS* 

IF  (NONLIN  *EQ*  0)  GO  TO  4S2 
DO  400  NJ  • 1*  NJMAX 
NPS  - 0 
NPF  « 0 
KOUNTP  » 1 
780  NPS  » NPF  ♦ 1 

NPF  ■ 10  * KOUNTP 
IF  (NPF  .6T.  NJMAX)  NPF  » NJMAX 
NQS  - 0 
NQF  - 0 
KOUNTQ  ■ 1 
776  NQS  = NQF  ♦ 1 
, NQF  « 10  « KOUNTQ 

I IF  (NQF  *0T*  NJMAX)  NQF  > NJMAX 

, IF  (NQS  *GT.  NJMAX  .AND*  NPF  *LE*  NJMAX)  GO  TO  771 

IF  (NQF  *LE*  NJMAX  *AND*  NPS  *6T*  NJMAX)  GO  TO  771 

WRITE  (6*6010)  NJ 

WRITE  (6*6011)  (NQ*  NQ  • NQS*  NQF) 

WRITE  (6*6015) 

, DO  778  NP  ■ NPS.  NPF 

WRITE  (6*6009)  NP*  ( D(NJ*NP*NQ)*  NQ  • NQS*  NQF) 

772  CONTINUE 
I • 771  CONTINUE 

IF  (NQF  *E0.  NJMAX)  60  TO  774 
KOUNTQ  ■ KOUNTQ  ♦ I 
60  TO  776 
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774  IF  (NPF  .EO.  N JMAX ) GO  TO  778 
KOUNTP  - KOUNTP  ♦ 1 
GO  TO  780 
778  CONTINUE 
400  CONTINUE 
452  CONTINUE 

IF  (NOUT  *E0.  0)  GO  TO  4 
WRITE  COEFFICIENTS  ON  FILE. 

455  WRITE  (9*7001)  GM4MA*  BETA*  BETAV*  RRL*  UB*  VL*  EL* 

1 NJMAX*  NPRTKL*  NBURN 

IF  (NPRTKL  .EO.  I)  WRITE  (9*7007)  DI  A*  RHOM*  SP* 

I TEMP*  FREQ*  PARTKL*  CM 

C 

00  4 50  J - 1*  JMAX 

WRITE  (9*7002)  J*  L(J)*  NAME(J) 

450  CONTINUE 
C 

DO  457  J ■ 1*  JMAX 
WRITE  (9*7006)  J*  B(J) 

457  CONTINUE 
C 

DO  460  KC  - I*  4 
WRITE  (9*7003)  KMAX(KC) 

DO  460  NJ  s 1*  NJMAX 
DO  460  NP  - 1*  NJMAX2 
ABSVAL  ■ ABS( C(KC*NJ*NP) ) 

IF  (ABSVAL  .GE.  SMI)  WRITE  (9*7004)  NJ*  NP*  C(KC*NJ*NP> 

460  CONTINUE 
C 

DO  465  NJ  « 1*  NJMAX 
WRITE  (9*70083'  NJ*  CV(NJ) 

465  CONTINUE 
C 

WRITE  (9*7003)  KMAXPR 
DO  1082  NJ  - 1*  NJMAX 
DO  1082  NP  > 1*  NJMAX2 
ABSVAL  > APS(CPAR(NJ*NP) ) 

IF  (ABSVAL  .GE.  SMI)  WRITE  (9*  7004)NJ*NP*  CPAR(NJ*NP> 

1082  CONTINUE 
C 

WRITE  (9*7003)  KMAX(5) 

IF  (NONLSN  .EO.  0)  GO  TO  4 
DO  470  NJ  ■ I*  NJMAX 
DO  470  NP  • 1*  NJMAX 
DO  470  NO  • I*  NJMAX 
ABSVAL  • ABS(D(MJ*NP*NQ)> 

IF  (ABSVAL  *GE.  SMB)  WRITE  (9*7005)  NJ*  NP*  NO*  D(NJ*NP*NQ> 
470  CONTINUE 

GO  TO  4 ; 
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600  CONTINUE 


FORMAT  SPECIFICATIONS. 

5000  FORMAT  (7A10) 

5001  FORMAT  (7FI0.0) 

5002  FORMAT  (2I5*1X*A4) 

5004  FORMAT  (615) 

5005  FORMAT  (2F10.0) 

5006  FORMAT  (6F10.0) 

6001  FORMAT  ( IH 1* //« 2X« 7A10// ) 

6002  FORMAT  (2X«8HGAMMA  ■ * F5.  3« //*  2X*  6HBETA  F5*  3* //«  2X»  7HBETAV 

1 F7*S#//«2X«  5HR/L  -*  F7. 5* //*  2X«  4HUB  ■«  F7.  5« //*  2X* 

2 5HVL  • «F4.2«/> 

6003  FORMAT  ( 2X«  A4«  21  5*  2F 10*  5/ ) 

6004  FORMAT  ( 2X////2X*  14HNM1E  J L*  5X<  4HB(  J) //> 

6005  FORMAT  (1H1«45H  DECOUPLED  COEFFICIENT  OF  B(P)t  C(l«J«P>///> 

6006  FORMAT  (1H1*44H  DECOUPLED  COEFFICIENT  OF  THE  DERIVATIVE  0F« 

1 6H  B(P)t«5X«8HC(2#J«P>///) 

6007  FORMAT  (IH1«47H  DECOUPLED  COEFFICIENT  OF  THE  COMBUSTION  TEW 

1 5X#8HC<3#  J»P)///> 

6008  FORMAT  ( 7X« IHP# 1 8«9 1 1 2) 

6009  FORMAT  ( 2X//2X* I 3« 3X« lOFl 2. 6) 

6010  FORMAT  ( IH  1«  47HDEC0UPLED  NONLINEAR  COEFFICIENT  IN  GAS  EQUATION* 

1 7H  FOR  B(*I2*  1H>///) 

6011  FORMAT  ( 7X* IHQ* 1 8*9 1 1 2) 

6013  FORMAT  ( 2X//2X*  25HLINEAR  COEFFICIENTS  ONLY.) 

6014  FORMAT  (4X*1HJ) 

6015  FORMAT  (4X*1HP) 

6021  FORMAT  ( ///*  lOX*  27HPARTI CLE  D1 A (IN  MICRONS)  - *F5.2*I0X* 

1 4HCM  -*F4.2*  lOX*  I8HFREQ  (IN  HERTZ)  - *F6.1*//* 

2 10X*26HCHAMBER  TEMP  (IN  DEG  K)  ■ * F6.  1*  lOX*  4HSP  ■* 

3 F4.2* lOX* 27HRH0M  (IN  KG/CUBIC  METER)  ■ * F6* I* //* lOX* 

4 30HPARTICLE  DRAG  COEFFICIENT*  K >*F8.4*////) 

6022  FORMAT  ( 2X*  26H PARTI  CL ES  ARE  NOT  PRESENT.//) 

6023  FORMAT  ( IHI*  39HC0EFF1  Cl  ENTS  IN  THE  PARTICLE  EQUATIONS!* 

1 12H  CPAR( J*P)///) 

6025  FORMAT  ( 2X*  1 5HN0  END  BURNING.*//) 

6026  FORMAT  (2X*23HEND  BURNING  IS  PRESENT.*//) 

7001  FORMAT  (7F10.5*315) 

7002  FORMAT  (215*1X*A4) 

7003  FORMAT  (15) 

7004  FORMAT  (21  5*  FIS. 8) 

7005  FORMAT  (31  5* FI 5. 8) 

7006  FOfMAT  (15*2F12*8) 

7007  FORMAT  (7FI5.8) 

7008  FORMAT  (I5*F12.8> 

END 
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SUBROUTINE  AXl  AL  1(N0PT*NP«NJ*  RESULT) 


THIS  SUBROUTINE  CALCULATES  THE  INTEGRAL  OVER  THE  INTERVAL 
(0*1)  OF  THE  FOLLOWING  FUNCTIONS  ACCORDING  TO  THE  VALUE 
OF  NOPT 


NOPT  - 1 
NOPT  - a 
NOPT  • 3 
NOPT  ■ 4 
NOPT  • 5 
NOPT  ■ 6 
NOPT  - 7 
NOPT  - 8 


Z(NP)  * Z(NJ> 

DDZ(NP)  * Z(NJ> 

DUBAR  * ZCNP)  * Z(NJ> 

UBAR  • DZ<NP)  * Z(NJ> 

RHOP  * Z(NP>  * Z(NO) 

RHOP  * UPBAR  * OZ(NP)  * Z(NO> 
UPBAR  * OZ<NP>  * Z<NJ> 

DUPBAR  * Z(NP>  * Z(NJ) 


IN  THE  ABOVE  EOUATIONSt 

Z(NP>  IS  THE  AXIAL  ACOUSTIC  El GCMFUNCTION  OF  INDEX  NP. 
Z<NJ>  IS  THE  AXIAL  ACOUSTIC  EIGENFUNCTION  OF  INDEX  NJ. 
DZ  AND  DDZ  ARE  THE  FIRST  AND  SECOND  DERIVATIVES  OF  THE 
AXIAL  EIGENFUNCTIONS  RESPECTIVELY* 

UBAR  IS  THE  STEADY  STATE  VELOCITY  DISTRIBUTION  AND 
DUBAR  IS  ITS  AXIAL  DERIVATIVE* 


I 

1 


^ mHEMSlON  FUNCTCaSO) 

) COHMON  B(6) 

COMMON  /BLK7/  BETA*  BETAV*.  RRL*  UB«  PAR7KL*  CM*  NPRTXL*  NBURN 

HAXMD  • 6 
RESULT  • 0*0 
ZE  ■ 1*0 
BP  - B(NP> 

BJ  ■ B(NJ> 

IF  (NOPT  *GT*  B>  GO  TO  50 

CALCULATE  INTEGRALS  BY  MEANS  OF  ANALYTICAL  EXPRESSIONS  FOR 
NOPT  - 1 AND  NOPT  ■ 8* 

IF  (NP  *E0*  NJ>  RESULT  >0*5 

IF  (NOPT  *E0*  2)  RESULT  ■ - BP  * BP  * RESULT 

RETURN 

I^ERICAL  EVALUATION  OF  INTEGRALS  FOR  NOPT  > 2* 


COMPUTE  STEP  SIZE  FOR  SIMPSON  INTEGRATION* 

50  N ■ 200 
RN  ■ N 

RESULT  • 0*0  V 

N0PT2  • NOPT  - 2 

1C  • 1 

J - 1 

H > ZE/RN 

ZO  - 0*0 

NPl  • N ♦ I 


o o 


COMPUTE  INTEGRANDS* 

DO  60  I - !•  NPl 
2 - 20  ♦ (I  - I)  ♦ H 
ARG  - BP  * 2 

CALL  STEADY (2«  UBAR«  UPBAR#  RH0P«  DUBAR#  DUPBAR) 

GO  TO  ( 110« 120« 130« 140« 1S0« 155« 160* 170* 180>*  NOPTB 
no  P2  ■ COS(ARG) 

FI  • DUBAR 
GO  TO  190 
120  PI  - UBAR 

F2  • - BP  * SIN(ARG) 

GO  TO  190 
130  FI  - RHOP 

F2  - COSCARG) 

GO  TO  190 

140  FI  ■ RHOP  * UPBAR 
F2  - - BP  * SINCARG) 

GO  TO  190 
150  FI  • UPBAR 

F2  • - BP  * SIN(ARG) 

GO  TO  190 
155  FI  • DUPBAR 
P2  - COS(ARG) 

GO  TO  190 
160  FI  • 0*0 

BETA2  ■ BBTA/2.0 

IF  (2  .GT*  BETA2  *AND*  Z *LT*  1*0-BETA2)  GO  TO  190 
FI  • OUBAR 
F2  ■ COS(ARG) 

GO  TO  190 

170  BETAV2  - BETAV/2*0 
FI  > 0*0 

IF  CZ  .LT*  0*5*BETAV2  .OR.  Z .GT.  0.5«^BETAV2)  GO  TO  190 
FI  - DUPBAR 
F2  - COS<ARG> 

GO  TO  190 

180  BCTAV2  - BETAV/2.0 
FI  - 0.0 

IF  (Z  .LT.  0.5-BETAV2  .OR.  Z .GT.  0.5«>BETAV8)  00  TO  190 
FI  > DUBAR 
F2  • COS(ARO) 

190  CONTINUE 

P3  • COS(BJ*Z) 

FUNCT(I)  ■ FI  « F2  * F3 
60  CONTINUE 

> C 

I , 
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C PERFOm  SIMPSON  INTEGRATION. 

NMl  • N - 1 

SI  - FUNCT(l)  ♦ FUNCT(NPl) 

SR  - 0.0 
S3  - 0.0 

DO  70  1 - R#  N»  2 
SR  • SR  ♦ FUNCTC I ) 

70  CONTINUE 

DO  80  I ■ 3«  NMl.  2 
S3  ■ S3  ♦ FUNCTd) 

80  CONTINUE 

RESULT  • RESULT  ♦ 

1 H * (SI  -»  4.0*SR  ♦ R.0«53>  / 3.0 

90  CONTINUE 
C 

100  CONTINUE 
RETURN 
END 
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SUBROUTINE  AXI  AL2(N0PT*NP*NQ«NJ«  RESULT) 

C 

C 

C THIS  SUBROUTINE  CALCULATES  THE  INTEGRAL  OVER  THE  INTERVAL 

C <0«1>  OF  THE  FOLLOWING  FUNCTIONS  ACCORDING  TO  THE  VALUE  OF  NOPT. 

C 

C NOPT  - I DZ(NP)  * DZ(NQ)  * Z(NJ) 

C NOPT  « 2 DDZ(NP)  * Z(NQ>  * Z(NJ) 

C 

C IN  THE  ABOVE  EQUATIONS) 

C Z<NP)«  Z(NO>«  AND  Z(NJ)  ARE  THE  AXIAL  ACOUSTIC  EIGENFUNCTIONS 
C AND  NP«  NQ«  AND  NJ  ARE  THEIR  INDICES* 

C DZ  IS  THE  FIRST  DERIVATIVE  OF  THE  AXIAL  EIGENFUNCTIONS* 

C DDZ  IS  THE  SECOND  DERIVATIVE  OF  THE  AXIAL  EIGENFUNCTIONS* 

C 

COMMON  B( 6) 

CALCULATE  INTEGRALS  BY  MEANS  OF  ANALYTICAL  EXPRESSIONS* 

BP  * B(NP) 

BO  ■ B(NO) 

BJ  ■ B(NJ) 

RESULT  - 0*0 

IF  (NOPT  *EQ*  2)  GO  TO  10 

IF  (NP-NO^NJ  *EQ*  0 *0R*  NP-NQ-NJ  • EO*  0)  RESULT  - BP  * BQ  / 4*0 
IF  (NP^NO-NJ  *EQ*  0)  RESULT  ■ - BP  * BQ  / 4*0 
RETURN 
10  CONTINUE 

IF  (NP4>NQ-NU  *EQ*  0 *0R* 

1 NP-NQ-^NJ  *r.Q*  0 *0R* 

2 NP-NQ-NJ  *EQ*  0)  RESULT  ■ - (BP  * BP)  / 4*0 
RETURN 
END 
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SUBROUTINE  STEADY(X«  UBAR#  UPBAR«  RHOP«  DUBAR«  DUPBAR) 

COMMON  /BLK7/  BETA«  BETAU*  RRL*  UB>  PARTKL«  CM*  NPRTKL*  NBURN 

RLR  - t.O/RRL 
BBY2  > BETA/ 2*0 
BVBY2  ■ BETAV/2.0 

IF  (NPRTKL  -EQ.  1 ) A5  - (A.O^UB)  / (RRL*PARTKL) 

IF  (X  *GE.  BBY2)  GO  TO  10 

UBAR  > UB  * (NBURN  ♦ 2.0  « RLR  * X) 

UPBAR  ■ UBAR  / (1.0  ♦ AS) 

HHOP  " CM  * ( 1.0  ♦ AS) 

DUBAR  ■ 2.0  * UB  * RLR 
DUPBAR  - DUBAR  / (l.O^AS) 

RETURN 

10  A4  - NBURN  ♦ BETA*RLR 

IF  (X  .GE.  0.5-BVBY2)  GO  TO  20 
UBAR  - UB  * A4 
UPBAR  « UBAR 
RHOP  > CM 

DUBAR  - DUPBAR  > 0.0 
RETURN 

20  IF  (X  .GT.  O.S^BVBY2)  GO  TO  30 
XI  - (1.0  - 2.0*X)  / BETAV 
UBAR  - UB  * A4  * XI 
A6  ■ 1.0 

IF  (NPRTKL  .EO.  1)  A6  - 1.0  - (4.0*UB*A4)  / ( PARTKL4 BETAV) 

UPBAR  - UBAR  / A6 
RHOP  - CM  * A6 

DUBAR  - - (2.0  * UB  * A4)  / BETAV 

DUPBAR  - DUBAR  / A6 

RETURN 

30  IF  (X  .OT.  1.0-BBY2)  GO  TO  40 
UBAR  - • UB  * A4 
UPBAR  - UBAR 
RHOP  - CM 

DUBAR  « DUPBAR  -0.0 
RETURN 

40  XI  - NBURN  ♦ 2.0  4 (1.0  > X)  * RLR 
UBAR  ■ - UB  * XI 
UPBAR  - UBAR  / (1.0  ♦ AS) 

RHOP  ■ CM  * ( 1.0  ♦ AS) 

DUBAR  - 2.0  * RLR  * UB 
DUPBAR  ■ DUBAR  / (l.O^AS) 

RETURN 

END 
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4.2  PROCRAM  TB2. 

Program  TB2  calculates  the  nonlinear  stability  characteristics  of  a 
T-burner  according  to  the  approximate  analysis  (Galerkln  method)  described  in 
Volume  I.  Using  the  coefficients  generated  by  TBl,  this  program  integrates 
the  system  of  differential  equations  governing  the  mode  amplitudes  and  com- 
putes the  time  history  of  a pressure  disturbance  in  the  T-burner. 

Program  Structure.  This  program  performs  the  same  calculations  for  the 
T-burner  that  S0LID2  performs  for  the  motor,  and  its  structure  is  similar  to 
the  structure  of  S0UD2.  In  fact,  the  description  of  the  structure  of  S0LID2 
given  in  Section  3.2  adequately  describes  the  structure  of  TB2  if  "SOLIDl" 
and  "S0LID2"  are  replaced  by  "TBl"  and  "TB2"  respectively. 

Description  of  Input.  As  in  the  case  of  Program  S0L1D2,  the  input  data 
required  to  run  this  program  consists  of  three  parts:  (1)  the  control  numbers 
N0UTCF  and  NHISTR  which  determine  the  extent  of  desired  printed  output,  (2) 
the  parameters  and  coefficients  generated  by  Program  TBl,  and  (3)  data  de- 
scribing the  case  to  be  run.  The  information  to  be  provided  for  each  case  is 
the  same  as  for  Program  S0LID2.  The  general  description  of  format  given  in 
Sections  3.1  ana  3.2  apply  here  also.  A list  of  necessary  Inputs  is  described 
below. 

The  three  parts  of  the  input  are: 

(1)  The  control  numbers,  N<)UTCF  and  NHISTR, 

(2)  The  coefficients  from  Program  TBl, 

(3)  The  data  deck. 

The  first  card  gives  the  control  numbers,  NiUTCF  and  NHISTR. 

NOUTCF  determines  printout  of  coefficients: 

If  N0UTCF  = 0 coefficients  are  not  printed  out, 

■ If  N0UTCF  “ 1 only  linear  coefficients  are  printed  out. 

If  NOUTCF  = 2 all  coefficients  are  printed  out, 

■ ?<HISTR  determines  if  pressure  history  is  to  be  printed: 

I If  NHISTR  - 0 printed 

* If  NHISTR  • 1 not  printed. 

The  coefficients  are  obtained  from  Program  TBl  by  putting  N0UT  = 1 or  N0UT  * 2, 
thereby  writing  the  coefficients  into  a disk.  This  disk  has  been  given  the 
device  number  9. 
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Tlie  data  deck  consists  o£  the  following  cards: 

First  card:  Title  of  the  case. 

Second  card:  H,  TSTA.RT,  TQUIT,  FREQ,  BC0MB 
H is  the  integration  step  size. 

TSXA.RT  is  the  time  at  which  output  starts. 

TQUIT  is  the  time  at  which  computations  are  terminated. 

FREQ  is  the  motor  frequency  (in  pure  gas),  in  Hertz. 

BCOiB  is  the  combustion  response  nonlinearity  factor. 

Third  card:  A2PARA,  B2PARA,  EN,  ilMEGA 

A2PARA  and  B2PARA  are  the  combustion  parameters  In  the  A-B  model. 

EN  is  the  pressure  exponent  in  the  burning  rate  law. 

{^lEGA  is  the  frequency  nondimens ionallzed  by  the  square  of  the 
steady-state  burning  rate. 

Fourth  card : NLjOC , NTERMS,  N(9UT,  NC^HB 

NL0C  determines  the  location  of  the  wall  pressure  maxima  and  minima: 
If  NL^C  = 1 location  is  x = 0.0 

If  NL0C  = 2 location  is  x =1.0 

If  NLftC  = 3 location  is  x = 0.5 

NTERMS  is  the  number  of  terms  given  initial  values. 

N^T  is  the  output  control  number. 

If  N0UT  = 0 printed  output  only. 

If  N0UT  > 0 both  printed  and  plotted  output: 

If  NJHJT  = 1 plot  of  pressure  at  x » 0.0  only. 

If  N0UT  = 2 plot  of  pressure  at  x = 0.0  and  x = 1.0 

If  N0UT  = 3 plot  of  pressure  at  x = 0.0,  1.0  and  0.5. 

NCfMB  determines  if  combustion  nonlinearities  are  considered: 

If  NCfMB  = 0 neglected. 

If  NC<MB  - 1 Included. 

Next  card  (necessary  only  if  plots  are  required):  YHI,  YlAB,  ITICY 
YHI  is  the  maximum  ordinate  for  pressure  plots. 

Note:  the  ordinate  scales  for  pressure  and  amplitude  plots  are 
symmetric  about  zero. 

YLAB  is  the  interval  for  ordinate  labeling  for  above  plots. 

ITICY  is  the  number  of  ordinate  tick  marks  for  above  plots. 

Note:  ITICY  should  be  negative  for  pressure  and  amplitude  plots 
to  obtain  centerline. 
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Next  card  (necessary  only  if  plots  are  required);  MDPL(W 

MDPLOT  determines  if  plots  of  individual  modes  are  required: 

If  plot  of  mode  is  required,  punch  "1"  in  the 
5 X column. 

If  plot  of  mode  is  not  required,  punch  "0"  in  the 
5 X column. 

Next  card  (necessary  only  if  plot  of  any  mode  amplitude  is  required): 

YHIMD,  YIABMD,  ITICMD 

YHIMD  is  the  maximum  ordinate. 

YIABMD  is  the  interval  for  ordinate  labelling. 

ITICMD  is  the  number  of  ordinate  tick  marks  for  mode  plots. 

Note:  ITICMD  should  be  negative  to  obtain  centerline. 

Remaining  cards  (NTERMS  in  number):  J,  AST,  ACT 

AST  is  the  amplitude  of  the  sine  term  of  the  mode. 

ACT  is  the  amplitude  of  the  cosine  term  of  the  mode. 

The  comments  in  Section  3.2  on  choosing  AST  to  obtain  a desired  single- 
mode initial  pressure  disturbance  apply  here  also. 

. Description  of  the  Subroutines. 

SUBRffJTINE  PHICFS  (NP,  Z.  CT.  CZ).  This  subroutine  performs  the  same 
i . function  and  is  structurally  the  same  as  subroutine  RIICFS  described  in  Section 

3.2. 

SUBROUTINE  PRSVEL(AXL^.  VL.  Y.  P.  VZGAS.  VZPAR).  This  subroutine  computes 
the  pressure  (P)  and  axial  velocity  perturbations  (VZGAS  and  VZPAR)  of  the  gas 
and  particles  at  a given  axial  location  (AXL0C)  in  the  T-burner,  using  the  sup- 
plied mode-amplitude  functions  and  their  derivatives  (Y).  The  steady-state  quan- 
I tities  at  the  given  axial  location  are  ccxnputed  using  subroutine  STEIADY,  and  VL 

represents  the  required  vent  effect.  Pressure  is  computed  from  the  second-order 
momentum  equation  and  velocity  is  computed  as  the  axial  derivative  of  the  vel- 
ocity potential.  The  space-dependent  coefficients  (COEF)  of  and  4^  are  com- 
puted by  subroutine  PHICFS  and  are  supplied  through  the  common  blocl  BLK3. 

SUBROUTINE  RHS  (U.UP.UN.  UNP).  This  subroutine  is  similar  to  subroutine 
RHS  described  in  Section  3.2,  except  that  in  this  case  there  are  two  additional 
dependent  variables  (UN)  representing  the  real  and  imaginary  parts  of  the  fluc- 
tuating velocity  through  the  vent.  The  equations  for  these  variables  (Equations 
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(76))  are  solved  simultaneously  with  the  equations  for  the  mode -amplitudes  for 
the  T-burner,  The  differential  increments  (UNP)  of  these  variables  needed  for 
the  Runge-Kutta  integration  are  calculated  by  this  subroutine.  The  calculation 
of  the  Increments  UP  Is  similar  to  that  in  program  S0LID2. 

SUBROUTINE  STEADY  (X.  DEAR.  UPBAR.  RH^P.  DUBAR.  DUPBAR).  Ihls  subroutine, 
used  for  calculating  the  steady-state  quantities,  is  same  as  that  In  Program  TBl, 

Besides  the  above  subroutines.  Program  TB2  contains  the  following  sub- 
routines which  are  exactly  the  same  as  those  used  in  Program  S0LID2;  (1)  GR{klTH, 

(2)  RESPNS,  (3)  GRAPHS,  (4)  MYAXIS,  (5)  MYLINE,  (6)  AXLAB,  and  (7)  DENDEC.  These 
subroutines  have  already  been  described  in  Section  3,2. 

Description  of  Output.  As  in  the  case  of  Program  S0LID2,  there  are  two 
modes  of  output:  (1)  printed  output  and  (2)  plotted  output.  Ihe  printed  output 
produced  by  Program  TB2  consists  of  seven  sections. 

Section  (1)  is  a restatement  of  the  input  from  Program  TBl,  It  includes 
the  following  information:  (a)  the  propellant  grain  length  (BETA),  vent  width 
(BETAV),  radius-to- length  ratio  (RRL),  velocity  at  the  burning  surface  (UB), 
parameter  (VL)  indicating  the  vent  effect,  effective  plug-flow  vent  length  (EL), 
number  of  modes  considered  in  the  series,  specific  heat  ratio  of  the  pure  gas (GAM) 
and  (if  particles  are  present)  the  specific  heat  ratio  of  the  mixture  (GAMMABAR) ; 
(b)  information  about  the  particles  (if  present);  (c)  the  parameters  which  describe 
and  identify  each  term  in  the  series  expansion;  (d)  the  axial  acoustic  eigenvalues, 
B(J),  for  each  term;  (e)  linear  coefficients  if  N0UTCF  = 1 or  2;  and  (f)  nonlinear 
coefficients  if  N0UTCF  = 2, 

The  other  six  sections  of  printed  output  and  the  plotted  output  are  the 
same  as  described  in  Section  3.2  for  Program  S0LID2. 

Sample  Case.  In  this  sample  run,  pressure-time  histories  are  obtained  for 
the  T-bumer  considered  in  Section  4.1.  The  data  generated  by  Program  TBl  in 
Section  4.1  is  used  for  the  second  part  of  the  necessary  input  as  described  in 
this  section.  The  same  linear  combustion  response  parameters  (A,B,n,  and  n)  as 
for  the  motor  are  used,  and  linear  particle  damping  is  considered,  A step  size 
of  0.025  is  chosen,  and  TQUIT  - 10.0.  A pure  IL-mode  initial  disturbance  of  7.57. 
pressure  is  assumed  for  which  ACT  “ 0.0  and  AST  “ - 0.0234625.  Pressure  maxima 
and  minima  are  obtained  at  X - 0.0,  hence  NL0C  - 1,  and  plots  of  the  pressure 
disturbance  at  z ~ 0.0  only  is  desired,  hence  N0UT  “ 1.  It  is  also  desired  to 
obtain  plots  of  the  growth  of  all  of  the  mode -amplitude  functions. 
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An  input  deck  with  these  data  is  illustrated  on  the  next  page.  The  follow- 
ing pages  present  the  printed  output  and  the  plotted  output,  generated  by  Program 
TB2  using  this  deck  and  the  coefficients  generated  by  Program  TBl  in  Section  4.2, 
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STEP  time  Pressure  pressure  pi^tbsu-iE  045  wel 
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STEP  TIHE  PJE3SUSE  PSESSURt  PRESiURE  GAS  WEL  PAR  JEL 


«j  *•>  -t  •■>  vi>  O'  r\j  f»T  o «X>  o ^ *t>  fvj  ti'  u'  ^ o to  fv-  *»>  ^o  o n O’  ifN  O'  •-«  »<  O'  ^ 'W  ‘T*  O'  'iX  vO  o cj  « 

«i)  » > -f  O -T  N.  C3  O'  tl  • » to  .T  l/^  '«»  <r  r*  W »4  » I e>  O O'  ^'-  'O  -T  >0  'O  T*>  o N-  ^ *•!  ^ O vl>  -T 


O C»  «->  ij  O C»  Lj  LA  O «.>  C>  ••*  O I 


T j -t  I.*'  ir*  O'  iJN  If'  ‘r\  O'  u>  l/^  ^ ^ .t  -T  o T'T  'Ni  *M  <vj  M o o o o 

4^O(.>OO'3C3<3(jUOOCJf3OO(jC^OUOOO<^C>OUO<0'^'3O 


o ^ »i'  ^ ‘J  fvj  ■*’  »i  r-»  T o*  u'  ^ 'o  y -Vi  o*  ^.  \.o  lo  .t  ^ » -V  ir>  "Vi  •«>  t\j  if*  P'-  o'  ^ <M  •-«  to  tf*  ''j  <i>  * > '•»  (T 

,3K.>p)<Df\j^^PO«^«p(7'*4«^QC}  y«'i:»i3P<K)K.  PON'®'Ox0»-<lf'«0lf'(\4P*.‘3p^*3P'»*OK-c3»VJ^0'‘O»^«T 

iDp^u>'t>»\4  0'«>»4^«D’<i»-«T0^a;f^s/'owp-**-4«-4p4'«'<o0'<rN.vr^'\Jo'00''0oP^*0O'DP0cr0'p^'0sDa' 
cJ»^^M<^lM(^l'0►0»0^0^^^^.y4‘U'0^lAu^u>^'0^0^u^J’^-y•.T-y-^-x'0^0P^T0^Jl^J<^l1-4»-•ooooao 
J000<^  30  0rj00'0r»0  '5»^0<3''-'»Ot3'3CTr»ilOOOOC300raOC>0*^000»^OOr3t3  000 


UIO'3OC-3O'-9vJOC3OC3«-»i0OOOCJQ0OCJOOC-lO0C9CJ(_»0OOt0O(^OO(JOOOOOOC90O 

ociiJootooooiGioocaocaotjoooocaoocjooootaoo'jjTaoooooooooooooo 


0>O^»^«^p^p^O.0*^N.'3'»<\|0>f^'t'^®WNrs.p*4KO^f3  0>T0r9P0r><*>N.H>l0O‘t)N.h-O‘noCT'U^Ti^Oa' 
f'l'0o0^l^'P^0'0f''0r0-y*-4(^JO'0f^lcnoo®^O^Py'<^J^'^O^^p-4'0<^JN.®0^^.\^)»>^K>o0^0^P0^«*0'®P0 


• ^ o O i3  O o o *3  O O O r3  o o O tj  O O O '3  fD  o O o < 


»ooooi3  0<jooooooa 


I I I • I I I 


^i.9<^rp)0*.yflo.yf*>'&).yc3u>u'<y«H'>jO'^0'V'UO>^p4^«Hpp)0'aoc3PovtNir'>v'o^o^90«^p^O'rwMtti 

fs.(oo^o'f'J«5p'4*ofo.H'n^oo»-i-To?r*«.^.ooeDpLfvrj{\j'o— 

0<AO0'd0O00O00C3r3o0C3Oi300O0O0OO0OC3’Jr30'3O000  0 0‘3O00Q  ^00 

****  ••••••••••••  • • ill•ll^l•ll•l••^••#llll••l 


oooooooooraocs'^oofsooooooooooot^oooraopaortoooooof^ooaoo 
oc9caouor)c900T»ooo<9oao<^t3ocaoo'30oo'90oo090aoo«3oooooaooo 
C^O\OO^OiAt->U^C^O^«JO^CJU'^U^U9  0•cSO*s:#</^cJ4/'4yU>01f'9U>t..'*U^Oi^C^O^OO^t3U^..UkU^C3i^'9U>OU^ 


• «>^a»(^9‘9>9'^<r(^^O9OC3O9OOOOp4Hp4«4«4P'4r4*4«4HMM<MM<\JMfSJ^(VM*n*nf«>PP>*«)»0 


253 


STEP  TIm£  PBtaS’JPE  Pi<tSSU^E  PRESSUikE  GAi  VEL  PSS  VEL 


F 


IfN  O *<  PO  «M  ^ 

O 4.>  '■»  *0  CNJ  VP  J 

T K.  •'4  f P»  *-•>  'V  4'  P^ 

• « ».>i-%<tvjPOPOfOPO 

kj  O (.>  O o 


J«  P)  MA  t/V  (\J  ,4  ;\j  U> 

u u>  ^ m p,  p«>  u> 

tj*  *4  vs  ^ N.  >4)  0« 

•n  »/  t ^ ~t  .r  ^ r 

U O cj  O t**  ' J • ) «'> 


IP  PO  TO 
»u  o»  t » 
■ ■»  r>  cj  *4 
*p  IP  IP  IP 
t**  <J  O (J 


‘P  V*  -t 
CP  «0  PJ 
O C#  »■> 
Ip  IP  IP 

•■a  o o 


ij  p.  IP  «\j 
sxj  rs.  N.  i/\ 
■r  »*>  p*. 
f -t 

t-»  V9  O O 


W’  ^ N.  O 
ra  \s>  s 

tjs  r*}  ,4  u* 
r ^ vi  !•» 

w o u < > 


sC  Pj  PJ 
^ «U  U <V 
P-  J *4  <tJ 
*0  TO  -•>  PJ 
O o U v3 


PJ  PJ  sT  iP 
vP  PJ  >0  CP 
IP  PJ  «j  ^ 
l«J  PI  v4  v4 
o o 19  o 


^ iP  ,4  K> 
•4  PJ  TO  i» 
•4  l*v  V|  « » 
«4  O O CJ 
U O o o 


^ (p  IP  o> 
IP  lO  «4  P> 
^ PJ  IP 
«•>  -.O  v4  *4 
o •:>  C9  u 


I I I I I 


r4  "U  N.  P.  -U  O -H  *4  O .O  O*  'P  «D  O T»>  IP  T»  ^ *0 


lP»0\DVPTOP»fli»«o 


N.  .t  ^ -O  TP  ^ IJ*  IP  .«  *»J  N.  vO  1>  O U'  CP  IP  ■ 

'Opj>y-tTOlT‘*OvC»N.lPPjP»r_>pjs-|Tp  t't>M^c->\ID'i-l^lPiP(MP.c9r9'r>Jf't50CP^T4lPP»  (P(T*OfP®K-  -fOlP 

«PJIP4J44rO«pa>.>p4^IPrs.c0  9'-<POO*4*4>4l_iOCP  0rvs0^T0«4Pv0Tn«4P.^«4rvV)<PiP(MT4(P<7‘'0P.O 
•4PJ«\jPjTr>P7TO»0-»-y^^^.f>y^lPtPU'lPlPlPU»^^^ 

«-900r>O00-‘9  0aO0‘J'^'3tJCJ0'300U' 


^.r^'0*^(OP7PjP|IWr4«-#OOc9C»OCJWr4PJ 

^ocj'orsovjooo'^cai^oocsoocsooo 


I • I I I 


IP 

• 

o 

II 

PJ 


^ «0  K.  CJT 
p.  »0  *0  ■«  v4 

*o  P-  *o  ^ 

O CJ  o o 

(J  O CJ  O C9 


fO  « ^ p O' 

PJ  o sO  o 

(T  M’  CP  *>  ® 

O Q O O o 

O C3  O O CJ 


«4  o vO  OD  '9 
sS  C*  \C 

p»  'O  IP  t "O 
C3  o u>  o c9 
o o CJ  CJ  o 


O'  K.  Ml  CP 
^ PJ  a »4  lo 
PJ  *4  rj  *4  Pi 
O O VJ  Q CJ 
O VJ  CJ  o o 


PI  PJ  CP  Ip  PJ 

si)  'O  CP  a *4 

■o  IP  P.  <t> 

iJ  cJ  O O kJ 

kJ  O O O CJ 


IP  vO  TO  IP  t) 

C3  *0  tP  '3  TO 

O'  O «-l  t4 
O O *4  *4  *4 

O C3  O CJ  o 


•o 

CP 


o 


vO 


o 


ix>  ^ <9 
w lO  7*  o 
^ o CJ'  <P 
«4  «4  O O 
o o a a 


P.  O CP 

CP  fk.  pj 

P-  0 IP 
o o o 
CJ  o o 


9cy'P»^«4CP»i)flOTT> 

P.v4(P9vOO-^vOPk 

»OPiCJv4Pl^lPs0^v 

aocjoooooci 

OCJCJOJCJOOO 


< 


k9 


II 

PJ 


^4  P.  9 O ov  JO 
PJ  <4  N.  O fv  *4 
•o  TO  PJ  PJ  O O' 
N.  P.  N.  p.  N. 

CJ  CJ  (9  a CJ  o 


•n  *0  CP  IP  PJ 
O'  »0  ^ ^ TVJ  ,t 
nO  -O  ^ N.  *0  OJ 
4>  or  47  sP  iP  ^ 
o o rj  kj  CJ  a 


^ vP  TP  O'  TO  »*> 
PI  IP  ^ O -t  >0 
•o  rv  *4  IP  i>  ^ 
^ »0  TO  PJ  .4  v4 
19  O C*  O O • 3 


9 « IP  N.  P.  N. 
«0  PJ  v4  <0  T»>  IP 
M O'  CP  PJ  4J 
V9  o O v4  i\J  CM 
0 0 0(900 


^ *0  r4  IP  IP  O 
^ O aO  O \fi 
^ O'  IP  IP  "O  K 
TO  TO  ,y  ^ IP  IP 

O O o O o ^ 


•4  «0  ^ O'  IP  ^ 
O'  TS.  PJ  PI  Tp  PI 

o TO  4)  'O  IP  -4 
vO  '■O  >.0  4>  47  N> 
CJ  O O O O o 


K.  PI  \0  O TO 

«4  fk.  o CP  V0  O' 

PJ  PI  *0  PJ  CM  «4 

^k 

o o o o o o 


m 9 w oi  CP  o* 
CP  hk  TO  IP  47  ^ 
o 'P  lO  47  <r  PI 
Ik  47  sO  47  4)  4) 
C3  O C9  O V9  <3 


•t 


I 


P|4JoP>4T«4«4Vl*'P<4Tk«4iPkPJ^M'^N.v4sW*T^iV<347Pi*0'PrvOiPPjOOCPi4Jf4T0O«4l*'P|0*P>PJU'Pj44O 
*4<U^N.0'O0'>i7*0«PT0K.r9*0lPs0  OP«4P|lP*Ov4®lP*44)t4-0CPPJ-yiP^‘O^fk,PJiP47\0»O0'*0^*OCPP| 
^ »4'P.0*O*4*k  ^ ^OPk^CPlP»4Tk.  ^r9*Ofk  «4  ^ 'W'MiP  O'lMlP  T'PJlPMls-I^MJO'HTOiPS.'VOvHPitMTO 

'0  4>'PlPlPlP.t-^-^'0T0T0P|-V*4»«v4OOCJOO»4«4«4PJP|PJT0f0'0^.T^lPlPlPlP'0sDs0s0'0^Tk»N>P>P. 
O'JOOOOOOOtJOOOO  >00>)000«9(9  000'9  00urja0k>k9000000uo0  0c9cj0 


llllllllllll 


I I • • • I • I I 9 I • I 


oorjooooooorjo 

ooorjoootjoooo 

OlPoU'OIPOU>Ol/'i9iP 

OTMlpP.cjp||pl>kr9P|iPhk 

*4»4*4*4PIPIIVPJ*0»>*0'0 


P.P>K.KIik»k>P.P.KP>Khk 


OC9OOrj0Of9O0CJr9 

oooooooaaoo>9 

aiPOiPkJlPoU^04>o4^ 

OPJiPfkOMiphkOMiP^k 

^^^^IPIPIPIP«4I474>4I 


P>kP»P»P.KKIk.fk.rkN.K.fk. 


OOOOOCJOOOT90C9 

OC9O000OCJOOOO 

OlPOiPOlPOiPOiPOlP 

OP|1PKOP|(P^O(MIP^>' 

TlkK^k^k«>040«MtPCPO«0' 


N>KP.KP>P.|ikTMKN.fkfk. 


OOI9000000C90C9 

0000O0C9OOC9O0 

ou'ocPoiPAau'oipotP 

OPIIPN.'OIMUNP-C^PIU'K 

0Or9OMr4*4v4Pir4PlPl 


<0<>7«  09«'00<D«70« 


^lPkOP-«(P«9-4PJ 

‘*>««04<00'(PTP 

pjpjpjpjpjryMPiPj 


*0  Ip  41  p>  TV 

(P  1^  ^ ^ ^ <p 

Pi  PI  PI  iV  PI  M 


Ip  O *4  PJ  «0  ■#  U> 
(P  O (9  r9  cs  O O 
PJ  TO  ^ T»)  |iO  *0 


vO 

(9 

♦o 


•*  CP  o 


*0  TO  «o 


PJ  TO  ^ IP  47  O 
•4  «4  «4  v4  *4  *4  *4 
TO  ^ *0  'O  TO  *0  TO 


O'  O *4  PI 
•4  PI  Pi  N 
TO  TO  TO 


TO  ^ IP  «0  Pk  V 
PI  Pi  fW  PI  PI  PI 
TO  TO  «0  TO  «)  TO 


O'  O <4 
PJ  "O  *0 
TO  TO  *0 


254 


PStSSLAE  PScSSbAE  PAES3UAE 


Ul  • 

•>  IJ 


o rj  o o 
o o o o 

Ij  IP  O t/H 
O <N»  iP  K. 
"O  V)  pr>  v> 


0 0*^0 

o o o o 

O IP  f»  IP 
o «>i  IP  K 

a ^ ^ ^ 


o o o o 
u o o o 
r3  IP  o IP 
O Pi  iP  N> 
IP  IP  IP  IP 


O O O Q 
O O O O 
O IP  O iP 
O Pi  IP  P> 
\P  <Ai  lO  oi 


o o o o 
a ra  o o 
O Ip  O Ip 

a iM  IP  K 


ra  o o 
o o o o 
o iP  rj  IP 
o PJ  IP  ^ 
40  <0  <D  <0 


000 


O IP  u> 
'a  Pi  IP 

<p  <7*  ^ 


o o 
o o 

iP  o 
K O 
IP  a 


o ca  o ra 
a a o o 

IP  u>  u'  ra 
Pi  IP  P.  o 

o o o «-« 


o a o r»  o 
n o o o a 
IP  o W'  o u> 
Pi  IP  K»  O PI 
r4  *4  Pi  Pi 


ra  -3  O O 0 

o a o o o 

ca  IP  cs  iP  o 

IP  Pi-  r»  PI  IP 

PI  Pi  Ml  w> 


o o 
o o 
IP  o 


o o 
la  a o 
u\  o IP 
PI  IP  p. 

a ^ ^ 


« '«  «)  O 9 >0  ' 


' 9 CO  *0  9 9 9 ' 


09'0999T»9t)‘09999<P^^i7*p<P^TCP^tP 


Pi9^lP9K9li*C>«4PJ*0^lP»pP>9CPOr4Pi*0-.tlP9P»9lPo«4PirP^lP\0K9ircJv4Pi9i^lPipK9lP 
#0iO9f^K)i»>99^>^^i^i>»<^^^^.tlPlPlPlPlPiPiPlP|PiP9vr)i0\P\099\09v0P.N.KN.P.KI>MKN.K. 

1 


255 


CEC 


lu  o 

«/»M  <\i«-4  0 -Ov0'O'J'lfNUL/N  J'fO‘J3a'(SJir»»H't3U>{\j<J'i/> 

(/)  hg  h»K.K.i^^>i3U'U>U>  ^rO*OfV4«H  »-«oaa*-«f\JtNi»o 

Ui  3000000'3  0.4t3  000000'3rao0<3 

rjf»-  ••••••••••••••*••••••• 

a.  <t  • I • I • I I I I I • I I • I I 


•u  o 
ue  • 
3 o 


'Or4(\>«^oN.  ^ <-ry  *o  f\j  •>.  o (M  t s.  <7*  ii> 

O'  »w  .iy  s>  *n  «3  '*j  O'  «o  ^ ^ o N. 

ooocioao«jQOOooOr3M*^a«jc'st^cs 

I I • I • 


u OOOOOr^OOOOOrtrsOQOOOOOaO 

c 00<9  '9  000000000000090000 

ou^oa^ou^ot/^ou^ot/^ol^oU^(JU^ol/^v*u> 

I*  OfMJN^k  0<\lli>^>0  0<Vil7«  ^OfMtf\N-ON 

iAifttAi/v«o«UtO«uN>rs.f^K  o Ti  «D  t>  rr  O'  o cy  o o 


UI 

v/l 


OOOOOOO'OOO^^C^^l^^''^^^^  o o 


256 


f 

r 


fx. 

w4  ro 

fSJ  N. 

o rvj 

• • 


>*>  K. 

fV 

'O 

N.  *«) 

0 (\i 

• • 

1 «0 


UN  N. 

OJ  'O 
»0  «7» 
vj  </» 

f**  O' 

o *o 


«4  C\| 
N.  V 

fx. 
W5  fO 
fx.  ro 
o W' 


o o 

f\j  T) 

t>  u> 
*0  o 
N,  <y* 
v3  UN 


«7»  ‘JN 
t/N  UN 
fO  OJ 
<V  UN 
fx.  ^• 
O UN 
• • 
I 


l/N  K 
UN  O 
H M 

4^  4 

K tr 

a <N| 


ru 


K 

O 


r o 

M Ul 
X K 
•f  3 
«:  a 
c 

Ui  o 

1C  u 
3 

</)  VI 
Ul  UJ 

M 3 

(X  4 


'll  M 
O ^ 
•»>  <4 
<NJ  K 

9 INI 


257 


I I 

Noiibayniyad  3yn9S3dd  qn3  Qb3H 


259 


DIMENSIONLESS  TIME. 


.03 


260 


ONl.ESS  TIME, 


3Q0W  JO  3afundwa 


263 


DIMENSIONLESS  TIME. 


FORTRAN  Source  Code 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM  TB2<  INPUT*  OUTPUT#  DA  TAj 
1 TAPE5-INPUT*  TAPE6«0UTPUT*TAPE9=DATA) 


PROGRAM  TBS  ******************************* 


THIS  PROGRAM  INTEGRATES  THE  SYSTEM  OF  DIFFERENTIAL  EQUATIONS 
FOR  MODE  AMPLITUDES  USING  THE  COEFFICIENTS  COMPUTED  BY  THE 
PROGRAM  TBl.  TIME-HISTORY  OF  A PRESSURE  DISTURBANCE  IN  THE 
T-BURNER  IS  COMPUTED  AND  THE  DESIRED  PLOTS  AND  PRINTOUTS 
ARE  PRODUCED* 


THE  FOLLOWING  INPUTS  ARE  REQUIRED! 

(1)  THE  CONTROL  NUMBERS*  NOUTCF  AND  NHI  STR* 

(2)  THE  COEFFICIENTS  FROM  PROGRAM  TBl* 

<3>  THE  DATA  DECK* 

THE  FIRST  CARD  GIVES  THE  CONTROL  NUMBERS*  NOUTCF  AND  NHI  STR. 
NOUTCF  DETERMINES  PRINTOUT  OF  COEFFICIENTS! 

IF  NOUTCF  ■ 0 COEFFICIENTS  ARE  NOT  PRINTED  OUT. 

IF  NOUTCF  ■ I ONLY  LINEAR  COEFFICIENTS  ARE  PRINTED  OUT. 

IF  NOUTCF  - 2 ALL  COEFFICIENTS  ARE  PRINTED  OUT. 

NHI  STR  DETERMINES  IF  PRESSURE  HISTORY  IS  TO  BE  PRINTED! 

IF  NHI  STR  •>  0 PRINTED 
IF  NHI STR  ■ I NOT  PRINTED. 

THE  COEFFICIENTS  ARE  OBTAINED  FROM  PROGRAM  TBl 

BY  PUTTING  NOUT  • I OR  NOUT  - 2*  THEREBY  WRITING  THE  COEFFICIENTS 
INTO  A DISK.  THIS  DISK  HAS  BEEN  GIVEN  THE  DEVICE  NUMBER  9. 

THE  DATA  DECK  CONSISTS  OF  THE  FOLLOWING  CARDS! 

FIRST  CARD!  TITLE  OF  THE  CASE* 

SECOND  CARD!  H*  TSTART*  TQUl  T*  FREQ*  BCOMB 
H IS  THE  INTEGRATION  STEP  SIZE. 

TSTART  IS  THE  TIME  AT  WHICH  OUTPUT  STARTS* 

TOUIT  IS  THE  TIME  AT  WHICH  COMPUTATIONS  ARE  TERMINATED. 

FREQ  IS  THE  MOTOR  FREQUENCY  (IN  PURE  GAS)*  IN  HERTZ. 

BCOMB  IS  THE  COMBUSTION  RESPONSE  NONLINEARITY  FACTOR. 

THIRD  CARD!  A2PARA*  B2PARA*  EM*  OMEGA 

A2PARA  AND  B2PARA  ARE  THE  COMBUSTION  PARAMETERS 
IN  THE  A-B  MODEL. 

EN  IS  THE  PRESSURE  EXPONENT  IN  THE  BUFMING  RATE  LAW. 

OMEGA  IS  THE  FREQUENCY  NONDIMENSI ONALIZ  ED  BY  THE  SQUARE  OF 
THE  STEADY- STATE  BURNING  RATE. 
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C FOURTH  CARDI  NLOC#  NTERMS#  NOUT#  NCOMB 

C NLOC  DETERMINES  THE  LOCATION  OF  THE  WALL  PRESSURE  MAXIMA 

C AND  MINIMA! 

C IF  NLOC  » 1 LOCATION  IS  Z » 0.0 

C IF  NLOC  =•  2 LOCATION  IS  Z » 1.0 

C IF  NLOC  “ 3 LOCATION  IS  Z - 0.5 

C NTEHMS  IS  THE  NUMBER  OF  TERMS  GIVEN  INITIAL  VALUES. 

C NOUT  IS  THE  OUTPUT  CONTROL  NUMBER. 

C IF  NOUT  * 0 PRINTED  OUTPUT  ONLT. 

C IF  NOUT  > 0 BOTH  PRINTED  AND  PLOTTED  OUTPUTl 

C IF  NOUT  ■ 1 PLOT  OF  PRESSURE  AT  Z » 0.0  ONLY. 

C IF  NOUT  « 2 PLOT  OF  PRESSURE  AT  Z « 0.0  AND  Z ■ UO 

C IF  NOUT  » 3 PLOT  OF  PRESSURE  AT  Z ■ 0.0#  1.0  AND  0.5. 

C NCOMB  DETERMINES  IF  COMBUSTION  NONLINEARITIES  ARE  CONSIDERED! 

C IF  NCOMB  s 0 NEGLECTED. 

C IF  NCOMB  - 1 INCLUDED. 

C 

C NEXT  CARD  (NECESSARY  ONLY  IF  PLOTS  ARE  REOUIRED)!  YHI»  YLAB#  I TI CY 

C YHI  IS  THE  MAXIMUM  ORDINATE  FOR  PRESSURE  PLOTS. 

C NOTE!  THE  ORDINATE  SCALES  FOR  PRESSURE  AND  AMPLITUDE  PLOTS 

C ARE  SYMMETRIC  ABOUT  ZERO. 

C YLAB  IS  THE  INTERVAL  FOR  ORDINATE  LABELING  FOR  ABOVE  PLOTS. 

C ITICY  IS  THE  NUMBER  OF  ORDINATE  TIC  MARKS  FOR  ABOVE  PLOTS. 

C NOTE!  ITICY  SHOULD  BE  NEGATIVE  FOR  PRESSURE  AND  AMPLITUDE 

C PLOTS  TO  OBTAIN  CENTERLINE. 

C 

C NEXT  CARD  (NECESSARY  ONLY  IF  PLOTS  ARE  REQUIRED)!  MDPLOT 
C MDPLOT  DETERMINES  IF  PLOTS  OF  INDIVIDUAL  MODES  ARE  REQUIRED! 

C IF  PLOT  OF  J TH  MODE  IS  REQUIRED#  PUNCH  "1"  IN  THE 

C 5*J  TH  COLUMN. 

C IF  PLOT  OF  J TH  MODE  IS  NOT  REQUIRED#  PUNCH  "0"  IN  THE 

C 5*J  TH  COLUMN. 

C 

C NEXT  CARD  (NECESSARY  ONLY  IF  PLOT  OF  ANY  MODE  AMPLITUDE  IS 

C REQUIRED)!  YHIMD*  YLABMD#  1 Tl  CMD 

C YHIMD  IS  THE  MAXIMUM  ORDINATE. 

C YLABMD  IS  THE  INTERVAL  FOR  ORDINATE  LABELLING. 

C ITICMD  IS  THE  NUMBER  OF  ORDINATE  TIC  MARKS  FOR  MODE  PLOTS. 

C NOTE!  ITICMD  SHOULD  BE  NEGATIVE  TO  OBTAIN  CENTERLINE. 

C 

C REMAINING  CARDS  (NTERMS  IN  NU4BER)!  J#  AST#  ACT 

C AST  IS  THE  AMPLITUDE  OF  THE  SINE  TERM  OF  THE  J TH  MODE. 

C ACT  IS  THE  AMPLITUDE  OF  THE  COSINE  TERM  OF  THE  J TH  MODE. 

C 

C 

C 

C 

COMPLEX  RES(6)#  CRES 
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( 

1 


c 


c 


c 


c 


DIMENSION 

1 

2 

3 

4 

5 

6 

7 

8 
9 


L(6)«  NAME(6)«  AA(4)«  EKUI(24>«  CPV(12>* 

YN(2)f  YNP(S)*  FZN(4«2)«  UN(5«2>*  UZN(2)* 

CFT(3«12)«  CFZ(3*12)»  AS(24)« 

AC<24)#  U<5»36)#  YC  36)  # PRESS!  3)  # 

YP<36)#  FZ(4»36)#  UZC36>»Z(3>#  TIMAX(500)# 
TPLOKSOO)#  YPLOT<  3#  500)*  DLMMYT(  500>»  DUMMYY<500)* 
IBUF(512)*  ITT(3>*  I TY  1<  3)*  I TY2(  3)*  I TY3(  4)* 

TITLE!  7)*  PRS!500)*  TI!500>*  PMAX!500>* 

MDPL0T!6>*  UPL0T!6*  500)*  MTI7LK2)*  MT11L2!2)* 
MTITL3!2)*  MTITL4!2)*  MTITL5!2)*  MTITL6!2)*  MTIIL!2) 


COMMON 

1 

2 

3 

COMMON 

COMMON 

COMMON 

COMMON 

I 


C!2*  12*24)*  D!12*144)* 

CVH12)*  CV2!12)*  CV3!12)*  CV4!12)* 

KPMAX!3*12)*  IC!2*  12*24)*  KPQMAX!12)*  I DP!  12*  144)* 
1DQ!12*144)*  CPAR!  12*24)*  UNBAR*  El.*  CP!  4*  12*  24) 
/BLK2/  B!6) 

/BLK3/  NJMAX*  NLMAX*  GAMMA*  C0EF!2*12)*  NJMAX2 

/BLK5/  RES*  NCOMB*  BCOMB 

/BLK7/  BETA*  BETAV*  RRL*  UB*  PAhTKL*  CM* 

NPRTKL*  NBURN 


DATA 

1 

2 

3 

4 

5 

6 

7 

8 
9 


1 TT/"DIMENS1  ONL"*  " 
ITY1/"HEAD  END  P"* 
I TY2/*'N0ZZLE  PRE'** 
ITY 3/ "PRESSURE  P"* 
MTITLl/"/WPLITUDE 
MTI  TL2/"AMPLI  TUDE 
MTI  TL3/"AMPLI  TUDE 
MTI  TL4/"/WPLI  TUDE 
MTI  H.5/"AMPLI  TUDE 
MTI  1L6/"AMPLI  TUDE 


ESS  TIME*  "*"T  "/* 

"RESSURE  PE"* "RTURBATI ON"/* 
"SSURE  PERT"* "URBATION  "/* 
"ERTURBATIO"*  "N  AT  THE  C"*  " 
"*"0F  IL  MODE"/* 

"*"0F  2L  MODE"/* 

"*"0F  3L  MODE"/* 

"*"0F  4L  MODE"/* 

"*"0F  5L  MODE"/* 

"*"0F  6L  MODE"/ 


ENTER 


"/* 


MA)!MD  > 6 
MAXMD2  = 12 
MAXMD4  ■ 24 
MAXMD6  - 36 
MAXMDD  - 144 
LAST  « 5 
ERR  - 0*001 
TDEL  • 10.0 
NPT  ■ 0 
AA! 1)  - 0*0 
AA!2)  ■ 0*5 
AA(3)  *0*5 
AA!4)  • 1*0 
PI  - 3*1415926536 
HC  - 1*0 
ZE  ■ 1*0 

READ  ! 5* 5003)  NOUTCF*  NHl STK 


i 
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c ♦*♦****♦♦***♦  COEFFICIENT  INPUT  SECTION  ♦*♦♦*♦*♦♦♦***♦••♦**♦**•*♦♦ 

C 

C THIS  VERSION  OF  TB2  READS  THE  COEFFICIENT  DATA  FROM 

C A FILE  GENERATED  BY  PROGRAM  TBl.  TO  READ 

C THIS  DATA  FROM  CARDS#  USE  READ  <5#XXXX)  INSTEAD  OF 

C READ  (9#XXXX)  IN  THIS  SECTION. 

C 

C INPUT  OF  MOTOR  PARAMETERS  AND  NUMBER  OF  TEFMS. 

HEAD  (9/5001)  GAMMA/  BETA#  BETAV/  RRL/  UB/  VL#  EL# 

I NJMAX/  NPRTKL/  NBURN 

JMX  » NJMAX/2 
NJMAX 2 ■ NJMAX 
NU  s 2 * NJMAX 
GAM  ■ GM4MA 
FRATIO  « 1.0 

AV  » PI  ♦ BETAV  * BETAV  / A»0 

UNBAR  - 2.0  * UB  * AV  * (NBURN  + BETA/RRL) 

IF  (NPRTKL  .EQ.  0>  GO  TO  14 

READ  (9/5011)  DIA/  RHOM/  SP/  TEMP/  FREQ/  PARTKL/  CM 
GAM  - GAMMA  / (1.0  ♦ SP*CM  - SP*CM*GAMMA) 

FRATIO  » SORT( GAMMA  / (GAM  * (1.0  ♦ CM))) 

NJMAX2  - 20NJMAX 
NU  > NJMAX2  ♦ NJMAX 

14  CONTINUE 
C 

IF  (NBURN  .EQ.  0)  WRITE  (6/6025) 

IF  (NBURN  .EQ.  1)  WRITE  (6/6026) 

WRITE  (6/6001)  BETA/  BETAV/  RRL/  UB/  VL/  EL/  JMX/  GM4 
IF  (NPRTKL  .EQ.  0)  WRITE  (6/6033) 

IF  (NPRTKL  .EQ.  1)  WRITE  (6/6009)  GAMMA 
IF  (NPRTKL  .EQ.  1)  WRITE  (6/6030)  DIA/  CM/  FREQ/ 

1 TEMP/  SP/  RHOM/  PARTKL 
WRITE  (6/6002) 

C 

C INPUT  OF  DESCRIPTION  OF  SERIES  EXPANSION. 

DO  10  K « 1/  JMX 

READ  (9/5002)  NJ/  L(NJ)/  NAME(NJ) 

WRITE  (6/6003)  NAME(NJ)/  NJ/  L(NJ) 

10  CONTINUE 
C 

WRI TE  ( 6/6010) 

DO  15  K - 1/  JMX 
HEAD  (9/ 5010)  J/  B( J) 

WRITE  (6/6015)  J/  B(J) 

15  CONTINUE 
C 

C ZERO  LINEAR  COEFFICIENT  ARRAYS. 

DO  20  KC  - 1/  4 
DO  20  NJ  > 1/  MAXMD2 
DO  20  NP  - 1/  MAXMD4 

CP(KC/NJ/NP)  ■ 0.0 
20  CONTINUE 
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ZERO  NONLINEAR  COEFFICIENT  ARRAT. 

DO  30  NJ  » W MAXMD2 
DO  30  NFQ  « MAXMDD 
D(NJ*NPG)  = 0.0 
30  CONTINUE 

INPUT  OF  LINEAR  COEFFICIENTS. 

DO  AO  KC  = 1*  A 
READ  (9# 5003)  KMAX 

IF  (NOUTCF  .GT.  0)  WRITE  (6»600A)  KC»  KMAX 
IF  <KMAX  .EQ.  0)  GO  TO  AO 
DO  A5  K « 1*  KMAX 

READ  <9>500A)  NJ>  NP»  CP(KC*NO*NP) 

IF  (NOUTCF  .GT.  0)  WRITE  (6*6005)  KC*  NJ*  NP*  CP(KC*NJ*NP) 
A5  CONTINUE 
AO  CONTINUE 

DO  305  K = I*  NJMAX 
READ  (9*5016)  J*  CPU(J) 

305  CONTINUE 

HEAD  (9*5003)  KMAXPR 

IF  (NOUTCF  .GT.  0)  WRITE  (6*6036)  KMAXPR 

IF  (KMAXPR  .EQ.  0)  GO  TO  lOAO 

DO  10A2  K - 1*  KMAXPR 

READ  (9* 500A)  NU*  NP*  CPAR(NJ*NP) 

IF  (NOUTCF  .GT.  0)  WRITE  (6*6037)  NJ*  NP*  CPAR(NJ*NP) 

10A2  CONTINUE 
lOAO  CONTINUE 

INPUT  OF  NONLINEAR  COEFFICIENTS. 

READ  (9*5003)  NLMAX 

IF  (NOUTCF  .EQ.  2)  WRITE  (6*6006)  NLMAX 
IF  (NLMAX  .EQ.  0)  GO  TO  50 
DO  52  NJ  B 1*  MAXMD2 
KPQMAX(NJ)  « 0 
52  CONTINUE 

00  55  K ■ 1*  NLMAX 

READ  (9*5005)  NJ*  NP*  NQ*  DT 

IF  (NOUTCF  .EQ.  2)  WRITE  (6*6007)  NJ*  NP*  NQ*  DT 
KPQMAX(NJ)  - KPQMAX(NJ)  * 1 
KPO  - KPQMAX(NJ) 

IDP(NJ*KPQ)  - NP 
ICQ(NJ*KPQ)  - NQ 
D(NJ*KPQ)  ■ DT 


C PRESSUHE  COEFFICIENT  SECTION  *♦♦*•*♦•**♦♦*****♦♦♦*♦* 

C 

C CALCULATE  SPATIAL  COORDINATES  FOR  PRESSURE  COMPUTATION. 

Z( 1>  = 0.0 
Z<2>  = ZE 
Z<  3)  = 0.5  ♦ ZE 
C 

C CALCULATE  COEFFICIENTS  FOR  PRESSURE  TIME  HISTORIES. 

DO  53  NPRES  = 3 

DO  53  J « 1#  JMX 
NP  = (2  * J)  - 1 
AXLOC  a ZINPRES) 

CALL  PHICFStJ# AXLOC# Cl. C3> 

CFT(NPRES.NP)  = Cl 
CFZCNPRES.NP)  » C3 

CFT(NPRES#NP^  1)  = CFZ  ( NPRES#  NP>  1 ) = 0.0 
53  CONTINUE 
C 

C OUTPUT  OF  COEFFICIENTS  FOR  PRESSURE  TIME  HISTORIES. 

WRITE  <6#  6020) 

DO  56  NPRES  = 1#  3 
WRITE  (6#6014) 

DO  56  J > 1#  NJMAX 

WRITE  (6#6021)  J#  ZCNPRES)#  CFT< NPRES# J ) # CFZ(NPRES#J) 

56  CONTINUE 
C 

C *************  DATA  INPUT  SECTION  *************♦♦*♦**♦♦*♦•♦♦**•*••* 

C 

READ  (5#  5000)  TITLE 
C 

C ZERO  INITIAL  VALUE  AND  FREQUENCY  ARRAYS. 

5 DO  57  K - 1#  NJMAX2 
AS(K)  > 0.0 
AC<K)  a 0.0 
FRQl(K)  a 0.0 

57  CONTINUE 
C 

C 

C READ  COMBUSTION  AND  CONTROL  PARAMETERS. 

READ  <5#  5006)  H#  TSTART#  TQUI  T#  FREQ#  BCOMB 
IF  <EOF<  5))  300#  1 
1 CONTINUE 

READ  (5#  5013)  A2PARA#  B2PARA#  EN#  OMEGA 
WRITE  <6#6034)  A2PARA#  B2PARA#  EN#  OMEGA 
DO  46  K a 1#  JMX 
OMEGAK  a OMEGA  * K 

CALL  RESPNSI EN#  A2PARA#  B2PARA# OM EGAK#  CRES) 

RES(K)  a CRES 

WRITE  (6#6035)  K#  RES(K) 

46  CONTINUE 
C 


270 


ooo  o oo  onono  ooo 


C RFAD  CONTROL  NUMBERS. 

READ  <5#  5008)  NLOC*  NTEHMS.  NOUT.  NCOMB 
IF  (NOUT  .GT*  0)  NPT  - 1 
IF  (NCOMB  .rO.  0)  WHITE  (6*6039) 

IF  (NCOMB  .EO.  1)  WRITE  (6*6040)  BCOMB 
WRI  TE  (6*6041) 


IF  (NOUT  .EQ.  0)  GO  TO  9 
READ  DATA  FOR  SETTING  UP  PLOTS* 

HEAD  (5*  5009)  YHI*  TLAB*  I TI CY 
READ  (5*5014)  MDPLOT 
MDPLTL  = 0 
DO  320  K » 1*  JMX 
320  MDPLTL  = MDPLTL  ♦ MDPLOT(K) 

IF  (MDPLTL  .EO.  0>  GO  TO  9 

READ  (5*5015)  YHIMD*  YLABMD*  ITICMD 

YLOMD  e - YHIMD 

««***««*««*«  INITIAL  AMPLITUDES  SECTION  **♦♦♦♦*•••****♦*♦♦♦••♦•**♦ 

9 DO  54  K =»  1*  NTERMS 

INPUT  INITIAL  AMPLITUDES  FOR  F-FUNCTIONS. 

HEAD  (5*  5007)  J*  AST*  ACT 
NJ  * (2  * J)  - 1 
AS(NJ)  « AST 
AC(NJ)  « ACT 

CALCULATE  FREQUENCY. 

AX  « L(J)  * PI  * FRATIO/ZE 
FRai(NJ)  = AX 
.FRQKNJ4-I)  B FROI(NJ) 

503  AC(NJ^l)  ■ -AS(NJ) 

AS(NJ>1)  - AC(NJ) 

58  CONTINUE 

IF  (NPRTKL  .EO.  0)  GO  TO  54 
AS(NJ*NJMAX>  = AS(NJ) 

AC(NJ4-NJMAX)  - AC(NJ) 

AS(NJ>  I^NJMAX)  > AS(NJ^I) 

AC(NJ> l^NJMAX)  - AC(NJ*I) 

54  CONTINUE 


OUTPUT  OF  INITIAL  AMPLITUDES* 

WRI  TE  (6*6016) 

DO  590  J - 1*  NJMAX 
IF  (AS(J))  59  1*  592*  59  1 
592  IF  (AC(J))  59  1*  590*  59  1 
591  WRITE  (6*6017)  J*  FRQl(J)*  AC(J)*  AS(J) 
590  CONTINUE 

IF  (NOUT  *GE.  1)  WRITE  (6*6027) 
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*****«««*««*4I  LINEAK  COEFFICIENTS  SECTION  ♦♦♦♦*♦****♦♦♦♦♦•♦**♦*♦•♦ 

DO  59  KC  « 1»  3 
DO  59  NJ  - 1«  MAXMD2 
KPMAX<KC#NJ)  - 0 

59  CONTINUE 

DO  315  KC  « 1«  2 
DO  315  NJ  «■  X,  MAXMD2 
DO  315  NP  1 It  MAXMD4 
CCKC»NJjNP)  = 0*0 

315  CONTINUE 

COMPUTE  LINEAR  COEFFICIENTS  FOR  GIVEN  VALUES  OF 
HC  AND  RESPONSE  FUNCTION* 

605  DO  60  NJ  >=  It  NJMAX 

CVl(NJ)  ■ CV2(NJ)  = 0*0 

IF  (NJ  *NE.  (NJ/2)02)  CVI(NJ)  - CPV(NJ)  * HC 
IF  (NJ  *EQ.  (NJ/2)*2)  CV2(NJ)  - CPV(NJ>  * HC 
CV3(NJ>  ■ (GAMMA*BETAV)  / ( EL+AV*HC)  ♦ CVKNJ) 

CV4(NJ)  - (GAMMA«BETAV)  / ( EL*AV*HC>  * CV2(NJ) 

DO  60  NP  ■ It  NJMAX2 
CT  ■ CP( 1«NJ«NP) 

IF  (CT)  61#  62#  61 

61  KPMAX(1#NJ)  • KPMAX(  I#NJ>  ♦ 1 
KP  - KPMAX(  I#NJ) 

IC(1#NJ#KP)  - NP 

C( 1#NJ#KP)  ■ CT 

62  CONTINUE 

IF  (NP  *GT*  NJMAX  *0R*  NJ  *GT*  NJMAX)  GO  TO  316 

NP12  = (NP+D/2 

RESR  > REAL  (RES(NP12)) 

RESl  > AIMAG  (RES(NP12)) 

CT  ■ CP(2#NJ#NP)  ♦ HC*RESR*CP(  3#NJ#NP)  ♦ HC*RESI * CP(  4#N J#NP) 

GO  TO  318 

316  CONTINUE 

CT  > CP(2#NJ#NP) 

318  CONTINUE 

IF(CT)  63#  60#  63 

63  KPMAX(2#NJ)  - KPMAX(2#NJ)  ♦ 1 
KP  - KPMAX(2#NJ) 

IC(2#NJ#KP)  - NP 
C(2#NJ#KP)  - CT 

60  CONTINUE 

**«0*0*0*m***  INITIAL  VALUES  SECTION  00000000000000000000000000000 

NSTEP  - 0 
NPl  > 3 
H6  - H/6 
TIME  ■ 0*0 
1 - NPI 
TKl)  - TIME 
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DO  75  J s 1*  NJMAX2 
JP  - J ♦ NJMAX2 
IF  <ACCJ))  751»  753»  751 
753  IF  (AS(J)>  751#  752#  751 
752  U(I#J)  - 0.0 

IF  <JP  .GT.  NU)  GO  TO  75 
U(I#JP)  « 0.0 
GO  TO  7 5 

751  ARG  « FRQKJ)  • TIME 
FSIN  a SINCARGl 
FCOS  a COS(ARG) 

U(I#J)  a AS(J)«FSIN  ♦ AC(J)'«>FCOS 
IF  <JP  .GT.  NU)  GO  TO  75 

U(1#JP)  a ((AS(J)  ♦ FCOS)  - <AC(J)  ♦ FSIN))  ♦ FRQKJ) 

75  CONTINUE 

C CALCULATE  INITIAL  VALUES  OF  PRESSURE  AND  VELOCITY. 

DO  70A  NPRES  - 1#  3 
DO  702  J a 1#  NJMAX 
C0EF(1#J)  a CFT(NPRES#J) 

C0EF(2#J)  a CFZ( NPRES# J) 

702  CONTINUE 

DO  703  J a 1,  NU 
Y(J)  a U(I#J) 

703  CONTINUE 

AXLOC  a Z(NPRES) 

CALL  PRSVELC  AXLOC#  VL#Y#P#  VZGAS#  VZPAR) 

PRESS! NPRES)  a p 
70A  CONTINUE 

PRS(I)  a PRESS! NLOC) 

70  CONTINUE 

IF  !NHISTR  .EQ.  0)  WRITE  ! 6# 6022) 

^m*****^*****  INITIALIZE  CONTROL  NUMBERS  ************************* 

LINE  a 8 
K a 0 
MAXNO  a 0 
MAXP  a 0 

IF  !N0UT  .EQ.  0)  GO  TO  100 
JPLOT  a 0 
TWIN  a TSTART 
TWAX  a TSTART  ♦ TDEL 
YLO  a -YHI 

*«*««**4i«*«**  NUMERICAL  CALCULATIONS  SECTION  **♦***•♦**♦*♦••*•♦•*• 

100  I a NPl 
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C RUNGE-KUTTA  INTEGRATION  SCHEME. 

105  NSTEP  - I - NPl  <LAST  - NPl)  ♦ K 
RSTEP  - NSTEP 
TIME  ■ RSTEP  ♦ H 
TKI)  - TIME 
DO  120  J - 1«  NU 
Y(J)  - UU#J) 

120  CONTINUE 

YN( 1)  - UN(I*  1> 

YN<2>  ■ UN<I>2) 

CALL  RHS(Y#YP#YN#YNP) 

DO  130  J « 1«  NU 
FZC  l,J)  m YP(J> 

130  CONTINUE 

FZN(  I«  1 } « YNP(  n 
FZN<  U2)  • YNPC2) 

DO  140  11  - 2# 4 
DO  144  J - It  NU 

UZ<J)  m YCJ)  ♦ AA(II)  ♦ H * FZ(II-1«J) 

144  CONTINUE 

UZN(l)  - YN<1)  ♦ AA<II)  ♦ H ♦ FZNd  1-1*1) 

UZNC2)  B YNI2)  * AA(Il)  * H * FZNd  I- 1*2) 

CALL  RHS<UZ*YP*UZN*YNP) 

DO  148  U - 1*  NU 
FZdI*J)  ■ YP(J) 

148  CONTINUE 

FZNd  I*  1)  e YNP<  1) 

FZNd  1*2)  ■ YNP<2) 

140  CONTINUE 

DO  150  J - 1*  NU 

Ud+l*J)  » Y(J)  ♦ (FZ<  1*J)4>2.0*<FZ<2*J)  + FZ<3*J))  ♦ FZ<4*J>)  ♦ H6 
150  CONTINUE 

UNd-M*I)  - YN(1)  ♦ (FZN(1*1)  ♦ 2.0  * < FZN(  2*  1 )♦  FZN<  3*  1 ) ) 

1 * FZN(  4*  1 ) ) * H6 

UNd->l*2)  « YN(2)  * <FZN(1*2)  * 2*0  * ( FZN(  2*  2)4-FZN(  3*  2)  > 

1 ♦ FZN(4*2)>  ♦ H6 

CALCULATE  PRESSURE  TIME  HISTORIES. 

DO  154  NPRES  - 1*  3 
DO  152  J ■ 1*  NJMAX 
COEF<  1* J)  ■ CFTINPRES* J) 

C0EF(2*J)  - CFZ( NPRES* J) 

152  CONTINUE 

AXLOC  - Z(NPRES) 

CALL  PRSVELI  AXLOC*  VL*Y*P*VZGAS*VZPAR) 

PRESS! NPRES)  - P 
154  CONTINUE 

PRSd)  • PRESS! NLOC) 

IF  !K  .EO*  0)  00  TO  175 
C 
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DETERMINE  MAXIMUM  AND  MINIMUM  PRESSURE  AT  LOCATION  SPECIFIED 
BY  NLOC. 

DPL  ■ PRS<  I ) - PRS(  I - 1 > 

DPS  = PRSU-l)  - PRSU-2) 

IF  (DPL* DPS)  173»  173*  175 

173  PNUM  « PRS(I-2)  - PRS(  I ) 

PDEN  » 2.0  ♦ (PRS(I-2>  ♦ PRS( I ) - 2. 0*PRSC I - 1 ) ) 

IF  (PDEN)  174*  175*  174 

174  PP  ■ PNIM/PDEN 
PA  ■ (PP  - 1.0)  * PP  • 0.5 
PB  - 1.0  - (PP  ♦ PP) 

PC  ■ (PP  ♦ 1.0)  • PP  ♦ 0.5 
MAXP  - MAXP  * 1 

PMAX(MAXP)  - PA*PRS(I-2)  ♦ PB*PRS(I-I)  ♦ PC*PRS(I) 
TIMAX(MAXP)  ■ TKl-l)  ♦ PP*H 
IF  (MAXP  .6E.  500)  GO  TO  250 

175  CONTINUE 

IF  (TIME  .LT.  TSTART)  GO  TO  155 

IF  ((NOUT  .EQ.  0)  .OR.  (NOUT  .GT.  6))  GO  TO  156 
0***00*000*0*  TIME  HISTORY  PLOTTING  SECTION 
IF  (TMAX  .GT.  TQUIT)  GO  TO  156 

IF  ((TIME  .GT.  TMAX)  .OR.  (JPLOT  .GE.  500) ) GO  TO  1000 

JPLOT  ■ JPLOT  ♦ 1 

FILL  TIME  ARRAY  FOR  PLOTTING* 

TPLOT(JPLOT)  ■ TIME 

FILL  PRESSURE  ARRAYS  FOR  PLOTTING. 

DO  1001  J - 1*3 
YPLOT(J* JPLOT)  ■ PRESS(J) 

1001  CONTINUE 


IF  (MDPLTL  .EQ.  0)  GO  TO  156 
' C FILL  MODE  AMPLITUDE  ARRAYS  FOR  PLOTTING* 

I DO  322  J « 1*  JMX 

i IF  (MDPLOT(J)  .EQ.  0)  GO  TO  322 

, J12  - 2*J  - 1 

UPLOT(J* JPLOT)  - U(I*JI2> 

322  CONTINUE 
C 

GO  TO  156 
C 

1000  NUM  - JPLOT 
C 
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PLOT  TIME  HISTORIES. 

DO  1020  NPLOT  « NOUT 
JPLOT  « 0 

ASSIGN  PLOTTING  PARAMETERS. 

YMIN  ■ YLO 

YMAX  ■ YHI 

NTICY  ■ ITICY 

DELY  ■ YLAB 


ELIMINATE  POINTS  THAT  ARE  OUT  OF  THE  ORDINATE  RANGE. 

00  1010  J « 1«  NUN 

IF  <<YPL0T<NPL0T# J)  .LT.  YMIN)  .OR.  < YPLOT(NPLOT» J)  .GT.  YMAX)) 
1 GO  TO  1010 
JPLOT  ■ JPLOT  ♦ 1 
DUMMYTt JPLOT)  ■ TPLOT(J) 

DUMMYY( JPLOT)  ■ YPLO T( NPLOT# J ) 

1010  CONTINUE 

IF  (JPLOT  .EO.  0)  GO  TO  1020 
GO  TO  ( 1011#  1014#  1015)#  NPL.OT 

PLOT  HEAD* END  PRESSURE. 

1011  CALL  GRAPHS!  I BUF#  512#  4#  JPLOT#  11#NTICY#1MAX#  YMAX#  1MIN#  YMIN# 

1 I TT#  I TY  1#  21#  30#  DUMMYT#  DOMMYY#  2.  0#  DELY#  TI  TLE) 

GO  TO  1020 

PLOT  NOZZLE  PRESSURE. 

1014  CALL  GRAPHS!  I BUF#  512#  4#  JPLOT#  1 1#NT1  CY#  TMAX#  YMAX#  TMIN#  YMIN# 

1 I TT#  I TY  2#  2 1 # 28#  DUMMY  T#  DUMMYY#  2.  0#  DELY#  TITL  E) 

GO  TO  1020 


PLOT  PRESSURE  AT  THE  CENTER  !X  - 0.5). 

1015  CALL  GRAPHS!1BUF#512#4#JPL0T#  11#NT1CY#TMAX#  YMAX#  TMIN#  YMIN# 
1 I TT#  1 TY3#  21#  35#  DUMMYT#  DUMMYY#  2.  0#  DELY#  Tl  1LE) 


C 


1020  CONTINUE 
C 
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DO  324  NPLOT  - 1#  JMX 
IF  (MDPLOT! NPLOT)  .EQ.  0)  GO  TO 


JPLOT  ■ 0 
DO  328  J123  • 
IF  (NPLOT  #E0. 
IF  (NPLOT  .EQ. 
IF  (NPLOT  #EQ. 
IF  (NPLOT  .EO# 
IF  (NPLOT  *E0. 
IF  (NPLOT  .EO. 
CONTINUE 


# 2 

1)  MTITL(J123)  - 

2)  MTITL(J123)  ■ 

3)  MTITL(JI23)  - 

4)  MTITL(J123)  ■ 

5)  MTITL(J123)  ■ 

6)  MTITL(J123)  ■ 


324 


MTITLK  J123) 
MTITL2(J123) 
MTI  TL3(J123) 
MT1TL4(J123) 
MTI  1L5(J123) 
MTITL6(  J123) 
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DO  326  J >=  1«  NUM 

IF  <CUPLOT(NPLOT#J)  »LT.  YLOMD)  .OR.  ( UPLOTCNPLOT.d) 

1 .GT.  YHIMD))  GO  TO  326 

JPLOT  « JPLOT  ♦ I 
DUMMY T(JPLOT)  ■ TPLOT(J) 

DUMMYY< JPLOT)  ■ UPLOT<NPLOT» J) 

326  CONTINUE 

IF  (JPLOT  .EQ.  0)  GO  TO  324 

CALL  GRAPHSUBUF*  512«4*  JPLOT«  1 1.  I TI  OMD«  1MAX<  YHIMD«  TMIN« 

1 YLOMD*  ITTfMTl  TL«  21. 20«  DUMMY T«  DU4MYY*  2.  0.  YLABMD.  TI  TLE) 

324  CONTINUE 

REASSIGN  PLOTTING  PARM4ETERS  FOR  NEXT  SET  OF  PLOTS* 

JPLOT  - 0 

TMIN  - 1MAX 

TMAX  » TMAX  ♦ TDEL 

«****4i**4>****  time  history  PRINTED  OUTPUT  SECTION  ♦♦♦♦♦♦♦**♦♦♦*♦*♦ 

156  IF  (NHISTR  .£0*  0) 

1 WRITE  (6.6011)  NSTEP.  TIME.  (PRESS(J).  J « 1.3).  VZGAS.  V2PAR 
LINE  ■ LINE  ♦ 1 

157  IF  (TIME  .GT.  TGUIT)  GO  TO  250 
IF  (LINE  .LT.  52)  GO  TO  155 

IF  (NHISTR  .EQ*  0)  WRITE  (6.6013) 

IF  (NHISTR  .EQ.  0)  WRITE  (6.6022) 

LINE  - 4 

155  I » I ♦ 1 

IF  (I  .LT.  LAST)  GO  TO  105 
K ■ K ♦ 1 

RE- ASSIGN  ARRAYS. 

190  DO  200  I - 1.  NPl 

ILAST  - LAST  - NPl  ♦ I 
PRS(I)  • PRS(  ILAST) 

TKI)  ■ TI(  ILAST) 

DO  200  J • 1.  NU 
U(I.J)  - U(ILAST.J) 

200  CONTINUE 
GO  TO  100 


4i*«****4i***«*  pressure  maxima  and  minima  printout  **************** 

250  WRITE  (6.6023)  Z(NLOC).  MAXP 
LINE  ■ 4 

DO  255  JST  • 1.  MAXP.  8 
JSTART  ■ JST 
JSTOP  ■ JST  ♦ 7 

IF  (JSTOP  .GT.  MAXP)  JSTOP  ■ MAXP 

WRITE  (6.6024)  (PMAX(J).  J ■ JSTART.  JSTOP) 

WRITE  (6.6024)  (TIMAX(J).  J • JSTART.  JSTOP) 
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WRITE  (6«6014> 

LINE  > LINE  ♦ 3 

IF  (LINE  •LT*  52>  GO  TO  255 

LINE  - 0 

WRITE  (6*6013) 

255  CONTINUE 

CALL  GROWTH(MAXP*  TIMAX*  PMAX*  FHEU) 

GO  TO  5 
300  CONTINUE 

TUFN  OFF  PLOTTING  ROUTINE. 

IF  (NPT  .EQ.  I)  CALL  PLOT(  0*  0*  0*  0*  999  ) 

**«*******4i**  READ  FOFMAT  SPECIFICATIONS 


5000  FORMAT 

5001  FORMAT 

5002  FORMAT 

5003  FORMAT 

5004  FORMAT 

5005  FORMAT 

5006  FORMAT 

5007  FORMAT 

5008  FORMAT 

5009  FORMAT 

5010  FORMAT 

5011  FORMAT 

5012  FORMAT 

5013  FORMAT 

5014  FORMAT 

5015  FORMAT 

5016  FORMAT 


(7A10) 

(7F10.0*  31  5) 
(21  5*  IX*  A4> 
(21  5) 

(21  5*F15*8) 
(31  5*  FI  5. 8) 
(7F10.0) 

(15*  2FI0.0) 
(615) 

(2F10*0*I  5) 
(15*  2F12.8) 
(7F15.8) 

(1 5* 2F10.0) 

( 4F10.0) 

(61  5) 

(2F10.0*!  5> 
(I  5* FI 2. 8) 


*00**0*0*00**  WRITE  FORMAT  SPECIFICATIONS  ************************ 


6001  FORMAT 
1 

2 

3 

6002  FORMAT 

6003  FORMAT 

6004  FORMAT 

6005  FORMAT 

6006  FORMAT 

6007  FORMAT 

6009  FORMAT 

6010  FORMAT 

6011  FORMAT 

6012  FORMAT 


(6X*6HBETA  ■*  F7. 5* //*  6X*  7HBETAV  ■*F7*5*//* 

6X*5HR/L  -*F7.5*//«6X*4HUB  •*  F7.  5* //*  6X*  4HVL  •* 

F4.  1*//*6X*4HEL  •*  F8 . 5* //*  6X*  1 7HNU1BER  OF  MODES  ■* 
12*//*6X*7HGAMMA  >*F5*2> 

(6X*14HNAME  J L/) 

(6X*  A4*21  5) 

(1H0*26H  NUMBER  OF  COEFFICIENTS  C(*  I 1*  10H*NJ*NP)  IS*  IS/) 
(2X*2HC(*I  1*  1H**I2*  1H**I2*4H)  • *F10«5> 

(1H0*38H  NUMBER  OF  COEFFICIENTS  D(NJ*NP*NQ)  IS*15/> 
(2X«2HD(*12*  1H**I2*  1H**12*4H>  « *F10*5> 

(/*6X*  lOHGAMMABAR  -*F9.6*//> 

( 1H0*////*6X«  IHJ*  lOX*  4HB(  J>//) 

(2X*I  5*F12.S*  5F22.5) 

( IHO) 
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6013  FORMAT  ( IH 1) 

6014  FORMAT  ( IH  ) 

6015  FORMAT  ( 2X«  I 5«  4X*  FI  0*  5) 

6016  FORMAT  (1H1#36H  INITIAL  CONDITIONS  ARE  OF  THE  FORMi // 

1 2X*47HU(I*J>  *»  AC<  J)*  cost  FREQ*  T)  ♦ AS(  J ) ♦ SIN  < FRE6H>  T)  » 

2 ////6X»  IHJ*  6X»9HFREQUEWCY*  10X*SHAC(J)«  10X»  5HAS<  J) // ) 

6017  FORMAT  < 2X#  I 5#  4F1  5.8/ ) 

6020  FORMAT  (1H1.46H  COEFFICIENTS  FOR  COMPUTATION  OF  WALL  PRESSURE. 

1 lOH  WAVEF0RMS///43X.  27HC0EFFICI  ENTS  IN  SERIES  FOR:// 

2 37X.4HTIME.  21X.  5HAXI  AL/6X.  1HJ.9X.  IHZ»  17X*  lOHDERI  VATI  VE. 

3 15X.  lOHDERI  VATI  VE//) 

6021  FORMAT  ( 2X. I 5. F 10. 3. 1 2X» F 1 5. 7. lOX. F 1 5. 7 ) 

6022  FORMAT  ( 3X.  4H STEP.  8X.  4H TIME*  1 5X«  8HPRESSURE.  14X.  8HPRESSURF.  1 4X. 

1 8HPRESSURE. 14X. 7HGAS  VEL. 1 5X. 7HPAR  VEL. /. 34X. 

2 8HAT  Z"0.0.  14X.8HAT  Z- 1 . 0.  1 4X. 8HAT  Z>0.  5.  1 3X. 

3 8HAT  Z«0.  5.  14X.8HAT  Z-0.5//) 

6023  FORMAT  (1H1.38H  PRESSURE  MAXIMA  AND  MINIMA  AT:  Z « .F5.2. 

1 /19H  VALUES  COMPUTED!  .13//) 

6024  FORMAT  i IH  .7X.8F13.6) 

6025  FORMAT  ( IH  1. //.  6X.  1 5HN0  END  BURNING../) 

6026  FORMAT  ( IH  1. //.  6X.  23HEND  BURNING  IS  PRESENT../) 

6027  FORMAT  ( 2X//2X. 33HTHI S RUN  PRODUCES  R.OTTED  OUTPUT.) 

6030  FORMAT  < ///.  6X.  27HPARTI  CLE  DI A (IN  MICRONS)  > .F5.2.  lOX. 

1 4HCM  S.F4.2.  lOX.  18HFREQ  (IN  HERTZ)  - .F6.  1.//. 

2 6X.  26HCHAMBER  TEMP  (IN  DEG  K)  > . F6.  1.  lOX.  4HSP  =. 

3 F4.2.  lOX.  27HRH0M  (IN  KG/CUBIC  METER)  = .F6.  1.//.6X. 

4 27HPARTICLE  DRAG  CONSTANT.  K ■.F8.4.////) 

6032  FOIMAT  ( 2X.  2HE(  . I 2.  IH.  . I 2.  IH.  . I 1.  4H  ) e .F10.5) 

6033  FORMAT  (/////. 6X. 26HPARTI CL ES  ARE  NOT  PRESENT.//) 

6034  FORMAT  ( IH  1. ///.  3X.  22HC0MBUSTI  ON  PARAMETERSl.5X.3HA  -.FT.A.  6X. 

1 3HB  «.F6.4.  5X.4HEN  «.  F5.  3.  5X.  7H0MEGA  I..F6.3. 

2 //////.  25X.  IHJ.  16X.4HRESR.  1 5X.  4HRESI . // ) 

6035  FORMAT  ( IHO. 20X. I 5. lOX. F 10. 4.9X. F 1 0. 4) 

6036  FORMAT  ( IHO.  47HNUMBER  OF  COEFFICIENTS  IN  PARTICLE  EQUATIONS  IS. 

1 15/) 

6037  FORMAT  ( 2X.  5HCPAR( . I 2.  IH.  . I 2.  4H)  « .FIO.  5) 

6039  FORMAT  (///.  3X.  27HLINEAR  COMBUSTION  RESPONSE.) 

6040  FORMAT  ( ///.  3X.  30HN0NLINEAR  COMBUSTION  RESPONSE:. 

1 5X.8HBC0MB  ■ .F6.3) 

6041  FORMAT  (//////.  3X.  24HLINEAR  PARTICLE  DAMPING.) 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


SUBHOUTINE  PHI  CES<NP^  2*  CT*  C<!:  ) 

THIS  SUBHOUTINE  COMPUTES  THE  COEFFICIENTS  NEEDED  TO 
CALCULATE  THE  PRESSURE  PERTURBATION. 

NP  IS  THE  INDEX  OF  THE  COMPLEX  SERIES  TERM. 

L IS  THE  AXIAL  LOCATION. 

CT  IS  THE  COEFFICIENT  IN  THE  SERIES  FOR  THE  TIME  DERIVATIVE  OF 
THE  VELOCITY  POTENTIAL. 

CZ  IS  THE  COEFFICIENT  IN  THE  SERIES  FOR  THE  AXIAL  DERIVATIVE 
OF  THE  VELOCITY  POTENTIAL. 

COMMON  /BLK2/  BC6) 

CT  = COS(B<NP)*Z> 

CZ  = - B(NF)  SIN<B(NP)*Z) 

RETURN 

END 
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SUBROUTINE  FRSUEL(  AXLOU#  VL»  Y.  U£GAS#  U^PAH) 

C 

C THIS  SUBROUTINE  COMPUTES  THE  PRESSURE  AND  VELOCITY. 

C 

C AXLOC  IS  THE  AXIAL  LOCATION  IN  THE  BURNER  WHERE  PRESSURE  AND 

C VELOCITY  ARE  TO  BE  DETERMINED. 

C Y IS  THE  ARRAY  CONTAINING  VALUES  OF  THE  MODE- AMPLI  TUDE 

C FUNCTIONS  AND  THEIR  DERIVATIVES. 

C PIS  THE  VALUE  OF  THE  PRESSURE  PERTURBATION. 

C VZGAS  IS  THE  AXIAL  COMPONENT  OF  GAS  VELOCITY. 

C VZPAR  IS  THE  AXIAL  COMPONENT  OF  PARTICLE  VELOCITY. 

C 

C 

DIMENSION  Y(36)>  SUM<5>*  SUMSQC2) 

COMMON  /BLK3/  NJMAX#  NLMAX#  GAMMA.  C0EF(2.  12).  NJMAX2 

common  /BLK7/  BETA.  BETAV.  RRL.  UB.  PARTKL.  CM. 

1 NPRTKL.  NBURN 

C 

BETAV2  = BETAV/2.0 

CALL  STEADY  ( AXLOC.  UBAR.  UPBAR.  RHOP.  DUBAR.  DUPBAR) 

DO  10  I = I.  5 
SUM< I ) * 0.0 
10  CONTINUE 
C 

DO  20  J = 1.  NJMAX 
JY  = J ♦ NJMAX2 

20  SUM(l)  = SUM(1>  ♦ Y(JY)  * COEF(I.J) 

DO  50  J = 1.  NJMAX 

SUM(2)  = SUMC2)  ♦ Y(J)  * C0EF(2.J) 

SUM<3)  » SUMO)  ♦ Y<J)  ♦ COEF(l.J) 

IF  (NPRTKL  .EQ.  0)  60  TO  50 
JP  = J ♦ NJMAX 

SUM(A)  = SUM(A)  ♦ (Y(J)-Y(JP))  ♦ COEF(l.J) 

SUM(5)  = SUM(  5)  ♦ C0EF(2.J)  * Y(JP) 

50  CONTINUE 

PLIN  « SUM(l)  ♦ UBAR  * SUMC2)  *■  DUBAR  * SLW(3) 

1 ♦ PARTKL  * RHOP  ♦ SUM(4) 

IF  (AXLOC  .GT.  0.5-DETAV2  .AND.  AXLOC  .LT.  0.5+BETAV2) 

1 PLIN  « PLIN  - VL  ♦ DUBAR  * SUM (3) 

PNL  =0.0 

IF  (NLMAX  .EG.  0)  GO  TO  40 

DO  30  I > 1.  2 

SUMSO(I)  = SUM(l)  ♦ SUM(I) 

30  CONTINUE 

PNL  « 0.5  * (SUMSQ(2)  - SUMSO(D) 

C 

40  P » -GAMMA  ♦ (PLIN  ♦ PNL) 

VZGAS  ■=  SUM(  2) 

VZPAR  « SUM( 5) 

C 

RETURN 

END 
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SUBFiOUTINP 
C 

c 

COMPLEX 
DIMENSION 
COMMON 

1 

2 
3 

COMMON 
COMMON 
COMMON 
I 
C 

IF  (NPRTKL 
NJS  = NJMAX  + 1 
DO  112  NJ  = NJS*  NJMAX2 
NJPAH  = NJ  - NJMAX 
SLP  =0.0 

DO  1 1 A KP  = 1*  NJMAX2 

SLP  » SLP  *■  ( CPAR(NJPAR*KF)  * U<KP>) 

IIA  CONTINUE 

UP(NJ)  = - SLP 
112  CONTINUE 
1 10  CONTINUE 

I IF  (NCOMB  .EQ.  0)  GO  TO  116 

JMX  = NJMAX/ 2 
DO  IIH  NJ  = 1*  JMX 
NJPLNJ  = 2*NJ 
NJ2MN1  = NJPLNJ  - 1 

RESNL(NJ)  = RES(NJ)  ♦ BCOMB  * SORT  ( UPC NJ2MN 1 ) ** 2+ UPC NJ PLN J ) *♦ 2) 
118  CONTINUE 
116  CONTINUE 

DO  10  NJ  = 1*  NJMAX 

NJP  = NJ  ♦ NJMAX2 

UPCNJ)  = UCNJP) 

SLl  = 0.0 

SL2  = 0.0 

SLU  = 0.0 

SNLl  =0.0 

SNLC  ■ 0.0  , I 

MAX  = KPMAXC'l*NJ) 

IF  CMAX  .EG.  0)  GO  TO  25 
DO  20  KP  = 1*  MAX 

NP  » ICC  l*NJ*KP) 

SLl  « SLl  ♦ CCC1*NJ»KP)  ♦ UCNP)) 

20  CONTINUE 

25  MAX  • KPMAXC2»NJ) 

IF  CMAX  .EG.  0>  GO  TO  45 
DO  30  KP  ■ I*  MAX 
NP  « 1CC2*NJ*KP) 

SL2  - SL2  ♦ CCC2»NJ»KP)  • UPCNP)) 

30  CONTINUE 


RHSC  U.  UP.  UN.  UNP) 


RESC6).  RE5NLC6) 

UC36).  UPC36).  UNC2).  UNPC2) 

CC2.  12.24).  DC  12.  144). 

CV1C12).  CV2C12).  CV3C12).  CV4C12). 

KFMAXC3.  12).  ICC2.  12.24).  KPQMAXC12).  IDPC12.  144). 
ICGC12.  144).  CPARC  12.24).  UNBAR.  EL.  CPC4.  12.24) 
/BLK3/  NJMAX.  NLMAX.  GAMMA.  C0EFC2.  12).  NJMAX2 
/BLK5/  RES.  NCOMB.  BCOMB 

/BLK7/  BETA.  BETAV.  RHL.  UB.  PARTKL.  CM. 

NPRTKL.  NBURN 

.EQ.  0)  GO  TO  110 
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4 0^4 

^4S  18 


45  IF  (NLMAX  •EQ>  0>  GO  TO  55 
MAX  - KPQMAX(NJ) 

IF  (MAX  >EQ.  0)  GO  TO  55 
00  50  KPO  • I*  MAX 
NP  - 1DP(NJ«KP0> 

NOP  • IDO(NJ*KPQ)  ♦ NJMAX2 

SNLl  - SNLl  ♦ (0(NJ«KP0>  • U(NP)  « U(NOP>> 

50  CONTINUE 
55  CONTINUE 

SLV  « CVKNJ)  * UNO)  «■  CV2(NJ)  * UN(2) 

IF  (NCOMB  .EQ.  0)  GO  TO  65 
DO  60  KP  - 1*  NJMAX 
KP12  « (KP^|)/2 

SNLC  - SNLC  ♦ (REAL(RESNL(KP12) > « CP(3«NJ«KP)  ♦ 

1 AIMAG(RESNL(KP12>)  * CP(4*NJ«KP>)  * UP(KP> 

60  CONTINUE 

65  UPCNOP")  ■ -<SLl  ♦ SL2  ♦ SLV  ♦ SNLl  ♦ SNLC) 

10  CONTINUE 

SLU  - 0-0 

DO  220  KP  « 1«  NJMAX 
220  SLU  - SLU  ♦ CV3(KP)  * U(KP) 

UNP(l)  ■ - (UNBAR/EL)  * UN(  1 > ♦ SLU 
SLU  - 0*0 

DO  230  KP  ■ It  NJMAX 
230  SLU  ■ SLU  * CV4(KP>  * U(KP> 

UNP(2)  « - (UNBAR/EL)  * UN(2)  ♦ SLU 

RETURN 

END 
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"EXACT"  PROGRAM  FOR  MOTORS 


Program  KOI  calculates  "exact"  instability  solutions  for  solid  rocket 
motors  with  full-length  tubular  propellant  grains  by  numerically  integrating 
the  conservation  equations  for  a gas-particle  mixture  (i.e..  Equations  (85) 
through  (90) )«  Ttie  main  purpose  of  this  program  is  to  generate  "exact"  solu- 
tions for  comparison  with  the  approximate  solutions  obtained  with  S0L1D2  or 
MA2.  For  this  reason,  program  KZM  has  the  following  characteristics:  (1)  it 
is  restricted  to  motors  with  quasi-steady  nozzles;  (2)  a linear  combustion 
option  is  included  in  addition  to  the  basic  nonlinear  pressure-coupled  com- 
bustion response;  and  (3)  a linear  particle  drag  (Stcdces  Law)  option  is  in- 
cluded in  addition  to  the  nonlinear  particle  drag  law.  The  theoretical  basis 
for  KZM  is  given  in  Section  3 of  Volume  I of  this  report  and  in  Reference  3. 

5.1  Program  Description  of  KZM. 

Program  KZM  consists  of  a calling  program  (MAIN)  and  several  subroutines. 
The  main  program  reads  two  control  parameters  and  calls  subroutines  INPUT  and 
START  which  in  turn  call  other  subroutines. 

Subroutine  INPUT  reads  the  parameters  necessary  to  describe  the  solid 
rocket  motor  under  consideration.  These  include  motor  length,  diameter,  and 
Mach  number;  chamber  pressure  and  temperature;  propellant  and  gas  properties; 
particle  properties;  and  reference  quantities.  Subroutine  INPUT  also  prints 
out  the  values  of  the  above  quantities,  sets  up  the  initial  thermal  profiles 
in  the  solid  propellant,  calculates  and  prints  out  the  combustion  parameters 
A and  B (for  linear  combustion  option  only),  and  returns  to  MAIN. 

Subroutine  START  reads  additional  parameters  (description  of  initial 
disturbance  and  number  of  integration  time  steps  performed),  calculates  the 
steady-state  properties  for  the  motor  (uses  subroutine  CfMBNT),  calculates 
the  initial  disturbance,  prints  out  the  steady-state  and  initial  disturbance 
profiles  (by  calling  subroutine  OUTPUT),  and  calls  subroutine  L0GIC. 

Subroutine  LOGIC  controls  the  integration  of  the  conservation  equations 
by  calculating  the  time-step-size,  calling  subroutines  BNDMOC  and  NOQiOC  to 
calculate  the  boundary  values  at  the  head-end  and  nozzle-end  respectively,  and 
calling  subroutine  TAYLOR  to  calculate  the  dependent  variables  at  the  interior 
grid  points  using  a Taylor  series  expansion  (Reference  3).  The  burning  rate  at 
each  grid  point  is  calculated  using  subroutines  NUTEMP  (which  calls  TSlBtOfV  or 
LINTHW)  and  COMBNT.  Subroutine  LOGIC  also  calculates  pressure  maxima  and  min- 
ima, tests  for  shock  development  (using  subroutine  SHDETL),  and  produces  printed 
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(subroutine  OUTPUT)  and  plotted  (subroutine  GRAmS)  output.  After  these  tasks 
are  completed  by  LOGIC,  control  is  returned  to  MAIN  (via  S1ART)  and  the  Job  is 
completed, 

5,2  Description  of  Input. 

'Hie  inputs  are  divided  into  four  sections  according  to  the  subroutines 
in  which  the  READ  statements  appear:  MAIN,  INPUT,  START,  and  LOGIC.  These  in- 
put sections  are  described  in  sequence  below,  where  the  format  is  the  same  as 
given  previously  for  the  approximate  programs  (five  columns  for  integers  and 
ten  columns  for  real  numbers). 

Inputs  in  MAIN,  The  MAIN  program  reads  the  first  card  of  the  data  deck 
which  gives  the  two  integer  control  numbers  described  below: 

NOPT  « 0 no  burning  response 

= 1 linear  burning  response 
> 2 nonlinear  burning  response 
NPRNT  > 0 print  time  histories  and  profiles 

1 time  histories  and  profiles  not  printed 

Inputs  in  INPUT.  Subroutine  INPUT  reads  the  geometrical  .parameters; 

steady-state  parameters;  propellant,  gas,  and  particle  properties;  »iid  reference 
quantities  needed  to  describe  the  motor  under  consideration.  This  information  is 
given  on  the  nine  cards  described  below: 

Card  1 : 

HEADER  Alphanumeric  heading 

Card  2: 

PIN  - initial  chamber  pressure  (atmospheres) 

TFSTR  > adiabatic  flame  temperature  (deg  R) 

Card  3: 

ELSTR  ■ chamber  length  (ft) 

RCHSTR  > chamber  radius  (ft) 

UT  “ Mach  number  at  nozzle  entrance 

Card  4: 

PRSTR  - reference  pressure  in  psi  (normally  14.7) 

TRSTR  - reference  temperature  in  deg  R (normally  540.0) 

RGAS  « gas  constant  (ft-lbf)/(lbm-R) 

GAM  - specific  heat  ratio 
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Card  5 : 

SIGMA  - particle  diameter  (microns) 

aiOPC  - ratio  of  particle  mass  flux  to  gas  mass  flux 
NU)G  » 0 linear  drag  law 

> 1 nonlinear  drag  law 

Card  6: 

RHSSTR  » density  of  the  solid  In  Ibm/ft^ 

CSTR  » specific  heat  of  the  solid  In  BTU/(lbm-R) 

SKSSTR  = conductivity  of  the  solid  In  BTU/ (f t-sec-R)  x 10  ^ 

AES  = activation  energy  of  surface  reaction  In  cal/mole 
Card  7 : 

QWSTR  > endothermic  heat  release  at  the  surface  In  BTU/lbm 
Card  8 

CPSTR  = specific  heat  of  the  gas  In  BTU/(lbm-R) 

SKGSTR  = conductivity  of  the  gas  In  BTU/ (f t-sec-R) x 10  ^ 

AEG  >>  activation  energy  of  the  gas  phase  reaction  In  cal/mole 
Card  9: 

TSSTRR  = reference  temperature  of  surface  In  deg  Ranklne 
SRS  - surface  regression  rate  In  ft/sec 
Note—  0,0328  ft/sec  » 1 cm/sec 
PSURS  « pressure  (psl)  at  surface  when  TS  ■ TSR  and  rate  - SRS 

CTSl  ' Initial  guess  of  surface  temperature  (dimensionless) 

The  reference  quantities  PRSTR  and  TRSTR  are  normally  associated  with  standard 
atmospheric  conditions  (14.7  psl,  540°R)  which  Is  the  reference  state  used  In 
nondlmenslonallzlng  the  governing  equations  In  the  Kooker-Zlnn  analysis.  The 
reference  quantities  TSSTRR,  SRS,  and  PSURS  are  needed  to  define  various  con- 
stants In  the  equations  describing  the  nonlinear  transient  combustion  response; 
these  must  be  obtained  from  experimental  data. 

Inputs  In  S^IRT.  Subroutine  START  reads  three  additional  control  numbers, 
the  Initial  disturbance  amplitude,  and  the  number  of  Integration  time-steps  de- 
sired. These  Inputs  are  given  on  the  three  cards  described  below: 

Card  1 : 

NSH0CK  “ 0 does  not  test  for  shocks 
« 1 tests  for  shocks 

ICTYPE  " 1 Kookers  continuous  disturbance 
- 2 Initial  first  longitudinal  mode 
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ISEN  > 0 

isothermal  disturbance 

- 1 

isentropic  disturbance 

AMPL 

half-amplitude  of  disturbance 

Card  2 : 

NTIMES  = 

number  of  integration  time  steps 

Card  3 : 

HEADER  > 

alphanumeric  heading 

In  the  description  of  ICTYPE,  Kooker's  continuous  disturbance  is  a pulse-type 
perturbation  with  a maximum  positive  value  at  the  head-end  which  smoothly  de- 
clines to  zero  at  about  x • 1/3.  For  all  of  the  cases  considered  in  Volume  I, 
the  initial  disturbance  was  an  isentropic  first  longitudinal  mode  (ICTYPE  > 2, 
ISEN  = 1).  Also  the  test  for  shocks  was  suppressed  by  choosing  NSH0CK  • 0. 

Inputs  in  Lf)GIC«  Subroutine  L0GIC  reads  control  parameters  necessary  for 
generating  plotted  output.  Itiese  Inputs  are  given  on  the  four  cards  des  ribed 
below: 


Card  1 : 
LPL0T 

NLAST 

Card  2: 

YMAX 

DELY 

NTICY 

Card  3: 

IMAX 

DELT 

NTICT 

Card  4: 


0 no  plots  produced 

1 plotted  output  produced 

number  of  axial  locations  plotted 

maximum  ordinate  for  pressure  plots 

interval  of  ordinate  labeling  for  pressure  plots 

number  of  ordinate  tick  marks  for  pressure  plots 

maximum  abscissa  for  pressure  plots 

interval  of  abscissa  labeling  for  pressure  plots 

number  of  abscissa  tick  marks  for  pressure  plots 


1MAX4 

0ELT4 

NTICT4 


maximum  abscissa  for  amplitude  plot 

interval  of  abscissa  labeling  for  amplitude  plot 

manber  of  abscissa  tick  marks  for  amplitude  plot 


If  LPLf>T  ■ 0 the  last  three  cards  are  omitted.  The  pressure  plots  are  produced 
for  the  head-end,  mid-chamber,  and  nozzle-end  in  that  order.  The  number  of  plots 
desired  is  given  by  NIAST;  thus,  if  all  three  plots  are  desired  NIAST  - 3,  while 
if  only  the  first  plot  is  desired  NIAST  - 1.  The  ordinate  for  the  pressure  plots 
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is  specified  in  terms  of  the  normalized  pressure  perturbation  p^/p,  and  the 
corresponding  abscissa  is  dimensionless  time  (using  chamber  sonic  speed  in 
normalizing);  thus  these  units  are  used  in  specifying  YMAX,  DELY,  TMAX,  DELT, 
TWAX4,  and  DELT4.  A centerline  (pVp  ••  0)  is  provided  if  NTICY  is  specified 
as  negative,  and  the  ordinate  range  is  -YMAX  < p*/p  < YMAX.  For  the  pressure 
amplitude  versus  time  plot,  the  ordinate  is  the  logarithm  (base  10)  of  the 
normalized  pressure  perturbation;  thus  the  ordinate  range,  labeling,  and  tick 
marks  are  fixed  for  all  cases  and  are  not  specified  in  the  inp>ut. 

5.3  Description  of  the  Subroutines 

A brief  description  of  each  of  the  subroutines  used  in  program  KZM  is 
given  in  this  section,  except  GRAmS,  MYAXIS,  MYLINE,  AXLAB,  and  DENDEC  which 
are  the  same  as  in  the  approximate  programs. 

SUBR0UTINE  INPUT  (N0PT.  NT.  T).  The  primary  purpose  of  this  subroutine 
is  to  read  the  motor  parameters  given  above  in  the  description  of  tne  input. 
After  these  parameters  are  read,  several  constants  used  in  the  linear  and  non- 
linear transient  combustion  models  are  evaluated.  Next,  a surface  temperature 
TS  is  calculated  which  is  compatible  with  the  chamber  pressure  PIN;  this  com- 
putation is  necessary  if  PIN  differs  from  the  reference  pressure  for  the  pro- 
pellant PSURS.  The  solution  for  TS  involves  an  iteration  procedure  using  the 
subroutine  ITSUB.  Once  the  surface  temperature  is  known,  the  initial  temper- 
ature profiles  and  burning  rates  for  the  11  burning  stations  are  calculated 
using  the  steady-state  equations.  For  linear  combustion  (N0PT  « 1)  the  para- 
meters A and  B are  calculated  using  Equations  (97)  and  (98).  Tliis  subroutine 
also  prints  out  the  input  parameters,  calculates  and  prints  out  the  particle 
drag  constants  DGK  (K)  and  DGKNL  prints  out  other  calculated  con- 

stants (see  description  of  output). 

SUBR0UTINE  START  (N0PT.  NT.  T.  NPRNT).  This  subroutine  first  calculates 
the  steady-state  values  of  the  chamber  properties  at  each  of  the  25  equally 
spaced  grid  points.  The  following  properties  are  calculated  based  on  a constant- 
pressure,  linear-velocity  profile:  gas  density  R(M,KS),  pressure  P(M,KS),  en- 
tropy S(M,KS),  sonic  speed  SSP(M,KS),  axial  gas  velocity  U(M,KS),  particle 
density  RP(M,KS),  and  particle  velocity  UP(M,KS).  Also  the  gas  and  particle 
mass  fluxes  at  the  burning  propellant  surface  (SMDG(M,KS)  and  SMDP(M,KS)  res- 
pectively) are  calculated  for  each  of  the  25  grid  points  using  subroutine 
C0MBNT.  In  the  above  variables  M Is  the  Index  of  the  grid  point  and  KS  - 1 
In  this  program. 
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After  reading  the  parameters  NSH0CK,  ICTYPE,  ISEN,  AMPL,  and  NTIMES; 
the  nozzle  admittance  (ADM),  the  mass  balance  (^0UT  and  SMIN),  and  the  fre- 
quency parameter  ((MEGA)  are  calculated,  the  steady-state  profiles  calculated 
previously  are  printed  out  (by  calling  subroutine  fftUTPUi’)  along  with  ADM, 

SM0UT,  SMIN,  and  (MEGA.  Next  the  initial  disturbance  is  calculated  (based  on 
the  parameters  ICTYPE,  ISEN,  and  AMPL)  and  added  to  the  steady-state  solutions 
to  obtain  the  initial  values  of  the  chamber  properties  which  are  then  printed 
out  (again  using  subroutine  0UTPUT).  Finally  subroutine  START  calls  subroutine 
L0GIC  to  perform  the  numerical  solutions  of  the  chamber  conservation  equations. 

SUBROUTINE  OUTPUT  (NT.  T.  KST.  NPRNT).  This  subroutine  produces  most  of 
the  printed  output  generated  by  KZM.  Two  types  of  output  are  produced:  (1)  values 
of  the  calculated  chamber  properties  at  each  of  the  25  grid  points  for  certain 
values  of  the  dimensionless  time  and  (2)  values  of  the  chamber  properties  at 
frequent  time  intervals  for  head-end,  mid-chamber,  and  nozzle-end  locations. 

Ihese  are  described  in  more  detail  in  the  next  section.  The  input  variables 
NT  and  T are  the  time  step  index  (integer)  and  the  dimensionless  time,  res- 
pectively, while  KST  « 1 in  this  program.  This  subroutine  also  stores  data  in 
plotting  arrays  (YPL0T)  for  later  plotting  by  GRAHIS  (called  by  L0GIC  ).  The 
data  to  be  printed  or  stored  for  plotting  is  transferred  by  C(MM0N  blocks 
(VARG  and  PLTVAR). 

SUBROUTINE  L0GIC  (KST.  N0PT.  NPRNT).  Subroutine  LOGIC  controls  the 
numerical  integration  of  the  chamber  conservation  equations.  The  following 
operations  are  performed  at  each  integration  time-step  (by  means  of  a DO  loop): 

(1)  the  integration  time  step-size  DT  is  calculated  using  the  Courant- 
Friedrichs-Lewy  stability  condition  (Reference  3); 

(2)  a test  for  pressure  maxima  or  minima  is  performed  for  NT>3,  if  a 
maximum  or  minimum  is  found  the  peak-to-peak  amplitude  is  calculated 

(3)  for  NSHOCK  ^ 0,  a test  for  shock-wave  development  is  performed 
(subroutine  SHDETL),  if  a shock -wave  is  detected  current  values  are 
printed  out  and  the  Job  is  terminated; 

(4)  boundary  values  are  calculated  at  the  head-end  and  nozzle  end  for 
the  next  time  increment  (subroutines  BNDMOC  and  NOZMOC); 

(5)  values  of  the  chamber  variables  are  calculated  at  the  interior  grid 
points  for  the  next  time  increment  using  subroutine  TAYLOR; 
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(6)  new  values  of  the  gas  and  particle  fluxes  at  the  burning  propellant 
surface  are  calculated  by  subroutines  NUTEMP  and  CfKBNT;  and 

(7)  the  calculated  values  of  the  chamber  variables  are  printed  out  by 
subroutine  OUTPUT, 

The  numerical  Integrations  are  terminated  when  NT  = NTIMES  and  the  plotted  out- 
put Is  produced  by  subroutine  GRAPHS, 

SUBR^TTNE  BNDM^  (KST.  MBC).  Subroutine  BNDM«»C  uses  the  method  of  char- 
acteristics to  calculate  the  rigid  wall  boundary  values  at  the  head-end  for  a 
motor  or  at  both  ends  for  a closed-ended  chamber  (particles  In  a box).  For 
MBC  “-la  left-hand  boundary  (head-end)  Is  considered,  while  a right-hand 
boundary  Is  considered  for  MBC  > 1.  In  either  case  the  rigid  wall  boundary  con- 
ditions require  that  the  gas  and  particle  velocities  are  zero;  these  values 
are  assigned  and  stored  In  UUD(MM,1)  and  UPUD(MM,1)  respectively.  The  method  of 
characteristics  is  then  used  to  calculate  the  remaining  variables:  pressure, 
gas  density,  particle  density,  entropy,  and  sonic  speed  and  stores  them  in 
PUD(1*I,1),  RUD(MM,1),  RPUD(MM,1),  SUD(MM,1),  and  SSPUD(MM,1)  respectively.  In 
these  variables  MM  “ 1 for  a left-hand  boundary  and  MM  “ 2 for  a rlg^t-hand 
boundary.  The  boundary  variables  are  transferred  to  subroutine  LtCLC  through 
C(hM0N  block  VARUPD. 

SUBROUTINE  N0ZM0C  (KST).  This  subroutine  uses  the  method  of  characteris- 
tics to  calculate  the  boundary  values  at  the  nozzle-end  of  the  rocket  motor.  In 
these  calculations  the  gas  velocity  and  pressure  at  the  nozzle  entrance  are  re- 
lated by  the  quasi-steady  nozzle  admittance  condition  (l.e..  Equations  (91)  and 
(92)).  The  calculated  values  of  the  pressure,  gas  density,  particle  density, 
gas  velocity,  particle  velocity,  entropy,  and  sonic  speed  are  stored  in  the 
arrays  PUD(2,1),  RUD(2,1),  RPUD(2,1),  UUD(2,1),  UPUD(2,1),  SUD(2,1),  and  SSPUD 
(2,1)  respectively.  These  values  are  transferred  to  subroutine  LOGIC  through 
C(!HM0N  block  VARUPD. 

SUBROUTINE  TAYL<ft  (KS).  Subroutine  TAYLOR  calculates  new  values  of  the 
gas  and  particle  densities,  gas  and  particle  velocities,  and  the  entropy  for 
all  interior  grid  points  by  means  of  a Taylor  series  expansion  in  time.  All 
spatial  derivatives  (first  and  second)  needed  in  these  calculations  are  de- 
termined using  central  differences.  The  pressure  and  sonic  speed  are  calcu- 
lated using  the  equation  of  state.  The  calculated  values  are  returned  to  sub- 
routine LOGIC  through  C|HM0N  block  VARG. 
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SUBRftJTlNE  NUTEMP  (KST.  N0PT,  NT).  Subroutine  NUTEMP  controls  the  cal- 
culation of  the  gas  and  particle  mass  fluxes  at  the  burning  propellant  surface. 

To  save  computation  time,  the  burning  rate  calculations  are  performed  at  fewer 
locations  (11)  than  the  number  of  grid  points  (25)  used  in  the  chamber  calcu- 
lations. Thus  NUTEMP  first  determines  the  pressure  at  each  of  the  11  burning 
stations  from  the  previously  calculated  values  at  the  25  grid  points  by  means 
of  linear  interpolation.  These  values  are  stored  in  APL0C(IBS)  where  IBS  is 
the  burning  station  index.  If  the  linear  combustion  option  is  selected  (N0PT=1), 
the  pressure  perturbation  PDEL  is  calculated  from  APL|0C(IBS)  and  subroutine 
LINTHW  is  called  to  compute  the  burning  rate.  For  nonlinear  combustion  (N0PT=2), 
the  burning  rate  is  calculated  from  APL0C(IBS)  using  subroutine  THFMWV. 

SUBROUTINE  THBMWV  (IBS.  PLOC.  TFLM.  NT).  This  subroutine  determines  the 
surface  regression  rate  RGR(IBS)  and  the  mass  flux  of  gaseous  combustion  pro- 
ducts FSMDG(IBS  burning  station  IBS  using  the  nonlinear  Kooker-Zinn  combus- 
tion model.  ven  local  pressure  PL0C,  the  temperature  profile  in  the 

solid  is  d>  oy  solving  the  energy  equation  (i.e..  Equation  (3,20)  of 

Reference  jj  subject  to  the  time -dependent  heat  transfer  boundary  condition 
(i.e..  Equation  (3.20b)  of  Reference  3)  at  the  burning  surface.  Once  the  tem- 
> perature  profile  is  determined,  the  surface  temperature  is  known  and  the  re- 

gression rate  and  mass  flow  rate  are  obtained  from  the  Arrhenius  rate  equation 
(Equations  (3.21)  and  (3.22)  of  Reference  3), 

Hie  solution  for  the  temperature  profiles  is  accomplished  by  means  of 
the  method  of  invariant  imbedding  described  in  pp,  88-96  in  Reference  3,  Hie 
numerical  solution  is  obtained  using  the  algorithm  given  on  pp.  95-96  of  Ref- 
erence 3,  where  the  following  nomenclature  is  used  in  THRMMV : 0(y)  is  denoted 
by  GNU  (J, IBS),  v (y ) by  SV(J,IBS),  w(y)  by  SW(J,IBS),  and  T(y)  by  CT(J,1BS). 

Hie  time -dependent  boundary  condition  at  the  propellant  surface  is  satisfied 
by  using  an  iterative  procedure  which  calls  subroutine  ITSUB. 

SUBROUTINE  LINTHW  (IBS.  PDEL).  This  subroutine  determines  the  surface 
regression  rate  RGR(IBS)  and  the  mass  flux  FSMDG(IBS)  using  the  linearized 
version  of  the  Kobker-Zinn  combustion  model  described  in  Section  3.2  of  Volume  I. 
In  this  case  the  temperature  profiles  in  the  solid  propellant  are  obtained  by 
using  the  method  of  invariant  imbedding  to  solve  Equations  (93)  through  (96). 

The  numerical  calculations  are  performed  using  an  algorithm  similar  to  that 
used  by  THRMWV,  and  the  nomenclature  is  the  same  as  in  THRMWV,  The  pressure 
I PDEL  which  must  be  specified  when  LINTHW  is  called  is  the  perturbation  obtained 
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by  subtracting  the  steady-state  pressure  form  the  local  pressure. 

SUBROUTINE  C<hBNT  (XND.  KS . KST.  HAFL.  SMDGL.  SMDPL).  Subroutine  C(SMBNT 
calculates  the  gas  mass  flow  rate  SMDGL  and  the  particle  mass  flow  rate  SMDPL 
emerging  from  the  burning  propellant  surface  at  the  axial  location  specified 
by  XND.  The  value  of  SMDGL  is  obtained  by  linear  Interpolation  from  the  pre- 
viously calculated  values  of  FSMDG(IBS)  at  the  11  burning  stations.  The  corres- 
ponding value  of  SMDPL  is  determined  by  multiplying  SMDGL  by  the  particle  load- 
ing SMDPC.  The  axial  location  XND  is  specified  in  terms  of  the  dimensionless 
axial  coordinate  | which  is  -1  at  the  head-end  and  zero  at  the  nozzle  end.  The 
dimensionless  adiabatic  flame  enthalpy  HAFL  is  also  calculated  (in  this  program 
it  is  simply  the  constant  value  HAFC).  The  values  of  FSMDG,  SMDPC,  and  HAFC 
needed  for  these  calculations  are  obtained  through  C0MM0N  blocks  MSFSLD  and 
C|!MFIX. 

SUBROUTINE  M0CINT  (Y1 . Y2.  Y3.  DXN.  YO).  This  subroutine  determines  the 
value  of  the  function  YO  at  the  intermediate  location  specified  by  DXN  from  the 
values  of  the  function  Yl,  Y2,  Y3  at  three  equally  spaced  grid  points.  This  is 
done  using  the  standard  three-point  interpolation  formula,  where  DXN  is  measured 
from  the  left-most  point  (i.e,,  Yl)  in  terms  of  the  grid-spacing  DX.  Subroutine 
MOCINT  is  called  by  subroutines  BNI^0C  and  N0Q10C  to  obtain  interpolated  values 
of  various  chamber  prop>ertie8  needed  in  the  method  of  characteristics  solutions. 

SUBROUTINE  SHDETL  (U1 . U2.  U3.  U4,  SHDET.  NYES).  This  subroutine  tests 
for  shock-wave  formation  using  the  values  of  the  pressure  at  four  grid  points 
specified  by  Ul,  U2,  U3,  and  U4.  This  calculation  is  performed  using  a polynom- 
ial fitting  technique  described  on  pp.  64-67  of  Reference  3,  where  an  infinite 
gradient  indicates  shock-wave  formation.  If  a shock-wave  is  detected,  SHDETL 
returns  NYES  =1,  otherwise  NYES  = 0.  The  value  of  the  discriminant  U given  by 
Equation  (2.50)  of  Reference  3 is  also  calculated  as  SHDET. 

SUBROUTINE  ITSUB(F0FY.  Y.  SAVE.  C0NV.  NTIMES).  This  subroutine  obtains 
the  solution  of  the  equation  F(y)  » 0 by  an  iterative  technique.  Here  FOFY  is 
the  value  of  the  function  F corresponding  to  a guess  of  the  solution  Y,  and 
SAVE  is  a one -dimensional  array  of  eight  locations.  Beginning  with  an  initial 
guess  for  Y,  ITSUB  changes  Y in  subsequent  iterations  in  such  a manner  as  to 
drive  FOFY  to  zero  (within  a specified  tolerance).  Thus  the  final  value  of  Y 
calculated  is  die  desired  root  of  the  equation  F(y)  >0.  The  maximum  number  of 
iterations  permitted  is  specified  by  NTIMES.  Furthermore  SAVE(l)  - 1 and  SAVE(2) 
is  the  initial  increment  used  in  changing  Y.  Convergence  to  the  desired  root  is 


292 


indicated  by  the  value  of  SAVE(l)  returned:  1 < SAVE(l)  < 4 indicates  that 
further  iterations  are  required;  SAVE(l)  = 5 indicates  convergence  to  the 
required  root,  and  SAVE(l)  = 6 indicates  that  convergence  did  not  occur  with- 
in the  specified  number  of  iterations, 

5.4  Description  of  Output 

Program  KZM  produces  printed  output  with  an  option  to  produce  plotted 
output  if  desired. 

Printed  Outpiut.  The  printed  output  is  given  in  six  major  sections:  (1) 
restatement  of  inpnit  parameters,  (2)  motor  geometry  and  burning  rates,  (3)  steady- 
state  profiles,  (4)  initial  disturbance  profiles,  (5)  time  histories  of  pressures, 
gas  and  particle  velocities,  and  burning  rates,  and  (6)  profiles  of  chamber  prop- 
erties at  selected  time  intervals. 

Section  (1),  which  occupies  the  first  page,  gives  the  following  input 
parameters:  (1)  chamber  pressure  in  atmospheres,  (2)  chamber  length  and  radius 
in  feet,  (3)  nozzle  entrance  Mach  number,  (4)  surface  heat  release  in  BTU/lbm, 

(5)  reference  surface  properties  (temperature  in  °R,  regression  rate  in  ft/sec, 
and  pressure  in  psi),  and  (6)  particle  properties.  The  last  of  these  includes 
the  calculated  values  of  the  linear  and  nonlinear  drag  constants. 

In  addition  a number  of  calculated  quantities  are  given.  Most  of  these 

relate  to  the  Kooker-Zinn  transient  combustion  model  (i.e.,  QFSTR,  BIGK,  YHC, 

BRAY,  BR,  WC0N,  WSTRR,  E0RG,E0RS,  ETF,  AC0N,  QMC,  ZIH,  Z2H,  WSTRS,  Z1 , and  Z2P) 

and  are  not  of  Interest  to  the  general  user.  Bie  remaining  quantities  in  this 

group  are  defined  as  follows:  TF  is  the  normalized  flame  temperature,  TS  is  the 

normalized  surface  temperature,  R is  the  dimensionless  surface  regression  rate 

(used  to  calculate  Q),  DXSBS  is  the  axial  spacing  between  burning  stations, 

ARSTR  is  the  reference  speed  of  sound  in  ft/sec,  and  RHRSTR  is  the  reference 
3 

density  in  Ibm/ft  . Finally  the  linear  combustion  parameters  A and  B are  given 
if  the  linear  combustion  option  (N0PX  = 1)  is  selected. 

Section  (2)  is  given  on  the  next  two  pages.  Hie  first  of  these  describes 
the  motor  geometry  and  coordinate  system,  while  the  second  gives  the  initial 
burning  rates.  These  are  tabulated  according  to  the  index  M for  each  of  the  25 
I grid  points  (M»l  at  the  head-end  and  M«25  at  the  nozzle-end).  The  variables  tab- 

ulated on  the  first  page  are  described  as  follows:  CAP  X is  the  dimensionless 
axial  coordinate  (i.e.,  X of  Reference  3),  XI  is  X-1,  X STR  is  the  axial  loca- 
tion of  the  grid  point  in  feet  (measured  from  the  nozzle-end  of  the  chamber). 
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RWALL  is  the  local  chamber  radius  in  feet,  DRWDX  is  the  axial  derivative  of 
RWALL,  AREA  is  the  chamber  cross-sectional  area  in  , DLNADX  is  the  logarith- 

'fc  “if 

mic  derivative  of  AREA,  and  RW2  is  2L  /R  which  is  four  times  the  length-to- 
diameter  ratio.  The  second  page  gives  the  dimensionless  mass  burning  rates  of 
the  gas,  SMDG,  and  particles  , SMDP,  as  well  as  the  dimensionless  chamber  en- 
thalpy (or  temi>erature) , HAF, 

Section  (3)  gives  the  steady-state  profiles  in  tabular  form.  For  each 
of  the  25  grid  points  (index  M)  the  following  variables  are  given:  the  axial 
coordinate  (X  STR),  Mach  number,  pressure,  density,  axial  velocity,  entropy, 
enthalpy,  local  sound  speed  (A(L(9C)),  particle  density,  particle  velocity, 
mass  burning  rate  of  gas  (SMDG)  and  particles  (SMDP),  and  time  derivative  of 
the  gas  burning  rate  (SMDDG).  This  is  followed  by  a tabulation  of  the  following 
properties  at  each  of  the  11  burning  stations  (index  IBS):  mass  burning  rate 
for  gas  (F  SMDG),  dimensionless  regression  rate  (R),  surface  temperature,  and 
local  pressure.  Finally  the  mass  balance,  dimensionless  frequency  parameter  C 
and  the  nozzle  parameters  are  given.  Here  MASS  IN  is  the  total  flux  of  bumeo 
gases  leaving  the  propellant  surface,  and  MASS  OUT  is  the  mass  flux  through  the 
nozzle  entrance  plane;  the  steady-state  solutions  must  be  chosen  such  that  these 
mass  fluxes  are  equal.  UBAR  and  PBAR  are  the  axial  velocity  and  pressure  at  the 
nozzle  entrance  plane,  which  are  used  to  compute  the  quasi-steady  nozzle  ad- 
mittance ADM,  TC0NV  is  the  factor  relating  the  dimensionless  time  used  in  the 
"exact"  analysis  (based  on  standard  atmosp>heric  conditions)  to  the  dimensionless 
time  used  in  the  approximate  analysis  (based  on  chamber  conditions);  it  is  the 
ratio  of  sound  speeds  for  these  two  reference  states. 

Section  (4)  gives  the  initial  values  of  the  chamber  properties  in  the 
same  format  as  Section  (3).  These  values  are  the  sum  of  the  steady-state  values 
given  in  Section  (3)  and  the  initial  disturbance  perturbations  calculated  in 
subroutine  START. 

Section  (5)  gives  the  time  histories  of  the  most  Important  chamber  prop- 
erties in  tabular  form.  The  first  column  gives  the  index  of  the  integration  time 
step,  where  only  even  nun-bered  steps  are  printed.  The  second  column  gives  the 
dimensionless  time,  where  the  upper  value  is  based  on  standard  atmospheric  con- 
ditions and  the  lower  value  is  based  on  chamber  stagnation  conditions.  The  next 
three  columns  give  the  pressure  at  the  head-end  (P(l)),  the  mid-chamber  (P(13)), 
and  the  nozzle-end  (P(25)).  The  upper  value  is  the  total  pressure  (i.e.,  steady- 
state  plus  perturbation)  in  atmospheres,  and  the  lower  value  is  the  pressure 
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perturbation  normalized  by  the  steady-state  pressure.  The  sixth  column  gives 
the  dimensionless  axial  gas  velocity  (sum  of  steady-state  and  perturbation) 
at  the  nozzle-end  (U(25))  and  at  the  chamber  midpoint  (U(13)),  while  the  Mach 
number  at  the  nozzle  entrance  (M(25))  and  the  particle  velocity  at  the  midpoint 
(UP(13))  are  given  in  the  seventh  column.  The  last  column  gives  the  burning 
rate  perturbation  normalized  by  the  steady-state  burning  rate  for  both  the 
head-end  (MG(1))  and  the  nozzle-end  (MG(25)). 

Information  about  the  head-end  pressure  maxima  and  minima  is  also  given 
in  Section  (5).  For  each  maximum  or  minimum  the  following  information  is  given: 
the  index  of  the  maximum  or  minimum  (NIMAX),  the  dimensionless  time  (based  on 
chamber  conditions)  at  which  the  extremum  occurs  (TMAX),  the  corresponding 
value  of  the  head-end  pressure  perturbation  (H1AX),  the  peak-to-peak  pressure 
amplitude,  the  mean  time  for  the  half-cycle  (T),  and  the  mean  pressure  pertur- 
bation (IWEAN).  The  last  two  quantities  are  arithmetic  averages  of  the  time 
and  pressure  at  the  current  extremum  and  the  imnediately  preceding  extremum. 

If  the  printout  of  the  time-histories  is  suppressed  (NPRNT  = 1),  only  the  max- 
ima and  minima  are  printed  in  Section  (5). 

Finally  Section  (6)  gives  the  profiles  of  the  chamber  properties  at 
selected  time  intervals  in  the  same  format  as  Sections  (3)  and  (4),  These  pro- 
files are  printed  every  100  time-steps.  For  NPRNT  = 1 these  profiles  are  not 
printed. 

Plotted*  Output.  For  LPL(9T  = 1 plotted  output  is  produced  using  a Calcomp 
plotter.  The  format  of  the  plots  is  the  same  as  that  described  for  the  approxi- 
mate programs  (i.e,,  S0LID2,  MA2  and  TB2).  The  first  three  plots  give  the  nor- 
malized pressure  perturbation  versus  dimensionless  time  (chamber  conditions)  for 
the  head-end,  mid-chamber,  and  nozzle-end.  These  plots  can  be  compared  directly 
with  similar  plots  produced  by  the  approximate  programs.  The  last  plot  produced 
gives  peak-to-peak  pressure  amplitude  versus  dimensionless  time,  where  the  amp- 
litude is  plotted  on  a logarithmic  scale. 

Sample  Case.  A test  case  is  given  to  illustrate  the  operation  of  Program 
K2M  and  facilitate  check-out  of  the  program.  This  case  corresponds  to  the  non- 
linear drag  case  (NIDG  » 1)  shown  in  Figure  46  of  Volume  I:  20  micron  particles 
at  367.  loading.  The  linear  combustion  option  is  selected  (N0PT  “ 1)  with  QWSTR  * 
- 250.9  BTU/lbm  (Q*  - - 139.4  cal/gro)  which  corresponds  to  A - 5.996,  3 -0.550, 
and  n -0.552.  The  gas  phase  and  propellant  properties  (i.e.,  TFSTR,  GAM,  RHSSTR, 
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CSTR,  SKSSTR,  AES,  CPSTR,  SKGSTR,  and  AEG)  are  taken  from  Table  1 of  Volume  I. 
The  motor  geometry  considered  In  Volume  1 Is  also  specified;  Che  motor  length 
(ELSTR)  is  1.938  ft  and  the  chamber  radius  (RCHSTR)  is  0.099283  ft.  The  refer- 
ence quantities  used  in  non-dimensionallzing  Che  various  chamber  properties  are 
the  standard  atmospheric  quantities  (PRSTR  = 14.7  psi  and  TRSTR  * 340°R),  while 
the  reference  properties  needed  to  characterize  the  propellant  are  TSSTRR  • 
1440®R,  SRS  = 0.03827  ft/sec  and  PSURS  = 1368  psi.  The  initial  guess  of  the 
normalized  surface  temperature  is  based  ca  Che  above  value,  thus  CTSl  > 2.67. 

The  initial  disturbance  is  assumed  to  be  a fundamental  mode,  isentropic  dlsturo- 
ance  (ICTVPE  « 2,  ISEN  = 1)  of  5%  amplitude  (AMPL  = 0.03).  The  program  is  run 
for  400  integration  time  steps  which  gives  printed  output  for  dimensionless 
times  (based  on  chamber  conditions)  of  0 < t < 12.3  and  plotted  output  for 
0 < t < 10.0, 

The  input  for  this  case  is  shown  in  Che  proper  format  on  Che  follcx/lng 
page.  This  is  followed  by  Che  resulting  printed  and  plotted  output. 
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PROGHAM  MA1N<  1NPUT*0UTPUT#  TAPE5-INPUT#  TAPE6»0UTPUT) 


****  KZM  VERSION  1AJAN77 

**♦*  INCLUDES  PLOTTING  ROUTINES 

♦***  EXPLANATION  OF  INPUT  **** 


INPUTS  IN  MAIN  PROGR/W  ***♦ 


CARD  1 
NOPT 


NPHNT 

**** 


=0  NO  BURNING  RESPONSE 
-1  LINEAR  BURNING  RESPONSE 
>S  NONLINEAR  BURNING  RESPONSE 
«0  PRINT  TIME  HISTORIES  AND  PROFILES 
-I  TIME  HISTORIES  AND  PROFILES  NOT  PRINTED 
INPUTS  IN  SUBROUTINE  INPUT  *•** 


CARD  1 

HEADER  ALPHANUMERIC  HEADING 

CARD  2 

PIN  « INITIAL  CHAMBER  PRESSURE  ( A1M0SPH  ERES) 

TFSTR  ■ ADIABATIC  FLAME  TEMPERATURE  < DEG  R > 

CARD  3 

ELSTR  • CHAMBER  LENGTH  (FT) 

RCHSTR  - CH/«BEB  RADIUS  (FT) 

UT  - MACH  NUMBER  AT  NOZZLE  ENTRANCE 

CARD  4 

PRSTR  - REFERENCE  PRESSURE  IN  PSI 
TRSTR  • REFERENCE  TEMPERATURE  IN  DEG  R 
RGAS  - GAS  CONSTANT  ( FT-LBF) /(LEM*  R) 

GAM  ■ SPECIFIC  HEAT  RATIO 
CARD  S 

SIGMA  • PARTICLE  DIAMETER  (MICRONS) 

SMDPC  ■ RATIO  OF  PARTICLE  MASS  FLUX  TO  GAS  MASS  FLUX 
NLDG  * 0 LINEAR  DRAG  LAW 

■ t NONLINEAR  DRAG  LAW 


CARD  6 

RHSSTR>  RHO  OF  THE  SOLID  IN  LBM/FT«*3 

CSTf^  SPECIFIC  HEAT  OF  THE  SOLID  IN  BTU/(LBM-R) 

SKSSTR-  CONDUCTIVITY  OF  THE  SOLID  IN  BTU/(  FT- SEC- R) 

AES*  ACTIVATION  ENERGY  OF  SURFACE  REACTION  IN  CAL/MOLE 
CARD  7 

OWSTR-  ENDOTHERMIC  HEAT  RELEASE  AT  THE  SURFACE  IN  BTU/LBM 
CARD  8 

CPSTR*  SPECIFIC  HEAT  OF  THE  GAS  IN  BTU/(LBM-R) 

SKGSTR-  CONDUCTIVITY  OF  THE  GAS  IN  BTU/(  FT- SEC-R) 

AEG*  ACTIVATION  ENERGY  OF  THE  GAS  PHASE  REACTION  IN  CAL/MOLE 
CARD  9 

TSSTRR*  REFERENCE  TEMPERATURE  OF  SURFACE  IN  DEG  RANKINE 
SRS  * SURFACE  REGRESSION  RATE  IN  FT/SEC 
NOTE--  3.26E-02  FT/SEC  * I CM/SEC 

PSURS*PRESSURE(PSI  ) AT  SURFACE  WHEN  TS*TSR  AND  RATE  * SRS 
CTSl  * INITIAL  GUESS  OF  SURFACE  TEMPERATURE 
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c 

♦***  INPUTS 

IN  SUBROUTINE  START  **•* 

c 

CARD  1 

c 

NSHOCK  -0 

DOES  NOT  TEST  FOR  SHOCKS 

c 

• 1 

TESTS  FOR  SHOCKS 

c 

ICTYPE  ■! 

KOOKERS  CONTINUOUS  DISTURBANCE 

c 

-2 

INITIAL  FIRST  LONGITUDINAL  MODE 

c 

I SEN  -0 

ISOTHERMAL  DISTURBANCE 

c 

- 1 

ISENTROPIC  DISTURBANCE 

c 

AMPL 

HALF-AMPLI  TUDE  OF  DISTURBANCE 

c 

CARD  2 

c 

NTIMES 

NUMBER  OF  INTEGRATION  TIME  STEPS 

c 

CARD  3 

c 

HEADER  > 

ALPHANUMERIC  HEADING 

c 

INPUTS 

IN  SUBROUTINE  LOGIC  ***« 

c 

PLOTTING  PARAMETERS 

c 

CARD  1 

c 

LPLOT  - 0 

NO  PLOTS  PRODUCED 

c 

■ 1 

PLOTTED  OUTPUT  PRODUCED 

c 

NLAST  - 

NUMBER  OF  AXIAL  LOCATIONS  PLOTTED 

c 

CARD  2 

YMAX#  DELY#  NTICY 

c 

CARD  3 

TMAX#  DELT#  NTICT 

c 

n 

CARD  4 

TMAX4#  DELT4#NTI  CT4  ! AMPLITUDE  PLOT) 

t# 

10  FORMAT!  21  5) 
READ!  5#  10) 

NOPT#  NPRNT 

CALL  INPUTCNOPT»NT*  T) 

CALL  START(NOPT*NT«  TfNPRNT) 

STOP 

END 


SUBROUTINE  I NPUT( NOPTj NT#  T) 

COMMON/HEAD/  HEADER!  7 ) « LPRl  N T«  N T1 MES# N SHOCK#  JPLOT#  PI N 
COnnON/FI  XPR/MTOTA(  5>  # GM1#  6M  1#  GM  1 2#  GM  1 2G#  G2#  GGH  1 # DGK#  DGKNL 
COMMON/  TIMTRN/  DT#  DT22#  OX A(  5)  # XI  SW(  S)  # I DDA(  5)  # ACMB(  5>  # ASMB(  5>  # 

1 ASMC(S) 

COMMON/COMFIX/  HAF(200#  5)#  SMDG(200#  5>#  SMDP(  200#  S) # XI FC#  HAFC#  SMDGC 
1 #REACTN#SMDPC 
COMMON/NOZDAT/ELSTR#  RCHSTR#  UT 

COMMON/M  SFSLD/  SMXBSC  100)  # APLOC!  100)  # FSMDGC  100)  # DXSBS#NBS#  APC(  100) 
COMMON/ TEH  WAV/ CT(  101#  20)#CNU<  101#  20)#  SW(  101#  20)#  SV(  101#  20)#  HGR!  20) 
COMMON/ BRNCON/  DYA<  3)#NTY< 3)# ALFTA! 3)#  TYLOCC  50) # YO# 2 1#Z 2P#  WCON# 
lEORG#  BORS#  ETF#  QMC#  BRAY#  JTOT#  JTOTM  1#  ARSTR#  RHRSTR#Z  1 T#  TS 
DIMENSION  SAVE(8) 

1 F0RMAT(7A10) 

2 FORMAT!  2X#  I 6#  El  4* 8#  16) 

5 FORMAT! 3F 10*0) 

6 FORMAT!  5F  10*0) 

7 FORMAT!  2F  10*0#  I 5) 

8 FORMAT! /#/#/#30X#7A10) 

9 FORMAT!/#  10X#9E13#5) 
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200  FOHMAT  ( iHl) 

201  FOHMAT(  8X«  7E16*8) 

202  FOHMATC  2X»  S2H********************** ) 

203  FORMAT(/«*  1 TSUB  V.N.C*FOR  THE  INITIAL  SURFACE  TEMP(AFTEh  ISO  I TE 
IRATIONS)*  «*3E1S*8) 

204  FORMAT(*  BI GK>*« El 4> 8« * YHC-** E14>8**  BRAY-*# E14>8« * BR-«* 

1E14«8«*  WCON-*« E14*8« * USTRR>«* El  4*8) 

205  FORMATC*  EORG-*«  El  4.8»  * EORS-*/ E14.8»*  TF«*.E14.8#*  TS»** 

1E14.8«*  ETF«4»E14.8) 

206  FORMAT(«  R-«>E14*8**  ACON-*«  E14*8«  * QMC^  El  4*8«  * £1H-««E14*8 

1««  Z2PH>*« E14>8«*  WSTRS«*« E14>8) 

207  FOFMAT<«  Z1-*«E14>8««  Z2P«**  £14*8«*  OXSBS-*«  E14«8«4  ARSTA>*« 

1E14*8*«  RHRSTR-** E14*8) 

210  FORMAT(/««  QFSTR(  BTU/LBM)-*«  E14<8*  * BASED  ON  ( QWSTH«  TCSSTH#  CPST 
IR*  CSTR»  TF»  TSR)  0F*» /» 2X«  6E1 5.8) 

211  F0RMAT(/30X.«1N1 TI AL  CHM4BER  PRESSURE  > 4«F10.1/> 

212  FORMAT  ( 40X.  *CHAMBER  LENGTH  - **F10«3/ 

1 40X«*CHAMBER  RADIUS  - **F10>6/ 

2 30X«*N0ZZLE  ENTRANCE  MACH  NO.  ■ ««F10.5/) 

213  FORMAT  ( 34X«  * SURFACE  HEAT  RE1.EASE  > «*F10.  l/> 

214  FORMAT  (30X*«REF.  SURFACE  TEMPERATURE  ■ *«FIO. 1/ 

1 26X.4REF.  SURFACE  REGRESSION  HATE  ■ *»F10.5/ 

2 33X.4REF.  SURFACE  PRESSURE  ■ *«F10.1/) 

215  FORMAT  ( 2X/ 10X» «LIN EAR  COMBUSTION  PARAMETERS*# lOX* 

1 AHA  - # F7.  3#  5X#  4HB  - #F7.3//> 

216  FORMAT  ( 37X.*PART1  CLE  DIAMETER  - *«F10.2#«  MICRONS*/ 

1 41X#*DRAG  CONSTANT  - *#F10.3/ 

2 36X#*N.L.  DRAG  CONSTANT  - *#F10.3/ 

3 45X#*SMDP/SMDG  - *#F10.4/> 

217  FORMAT  (1H1#3X#*SMB  ■ *>  F9 . 5#  5X#  * SMC  « *#F9.5# 

1 5X»*CMB  ■ *#F9.5///) 

READ!  5#  IXHEADERd  >*I«1«7> 

WRITE  (6#  200) 

WRI  TE(6#8)  (HEADER!  I )#  I - 1#  7) 

READ!  5#  5)  PIN#TFSTR 

WRITE  (6#  211)  PIN 

PI>3.  14  1 59  26  54 

MTOTA(  1)«25 

SMDGC-0. 100000000 

READ  (5#  5)  E1.5TR#RCHSTR#UT 

WRITE  (6#  212)  ELSTR#RCHSTR#UT 

DXA(  I )- l.OO/FLOAT(MT0TA(  1)»I) 

SMB--  I. 000000 
SMC  - 0.0 
CMB-SMC-SMB 
KS*  1 

ASMC(KS)-SMC 

ASMB(KS)«SMB 

ACMB(KS)*CMB 

READ  ( 5#  6)  PRSTR#  TRSTR#  RGAS#  GM1 
HAFC  ■ TFSTR/TRSTR 
ARSTR-S0RT(0AM*RGAS*TRSTR*32.2) 

RHRSTR-<  PRSTR* 144. 00) /( RGAS*  TRSTR) 
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READ  (5*7)  SIGMA*  SMDPC*  NLDG 
SIG  - SIGMA  « l*0E-06 

RMU  ■ C8.83AE-05)*<  TFSTR/6273.0)«'*0»66 
RHOM  - 4000 

DGK  - 18>0*RMU*ELSTR/(  RHOM*SIG*SIG*ARSTR> 

IF  (NLDG  *£0.  0)  00  TO  10 

DGKNL  • 0*4797  * ( RHRSTR«ARSTR« SI  G/RMU>**0. 66667 
GO  TO  15 
10  DGKNL  - 0*0 


**••*«*«**  UNSTABLE  FORMU.ATION  •*♦****••♦ 

*•*  PROPELLANT  CONSTANTS  *** 

15  READ  (5*6>  RHSSTR*  CSTR*  SKSSTR*  AES 
SKSSTR  ■ SKSSTR  * l.OE-05 

EORS*  AES/(R*TCS>  ASSUMING  R- 1*987  CAL/MOLE>K  AND  TCS*300~K 
BORS-AES/< 1 *987*300*00) 

OWSTR-  ENDOTHERMIC  HEAT  RELEASE  AT  THE  SURFACE  IN  BTU/LBM 
READ  ( 5*  5)  QWSTR 
bRITE  (6*213)  QWSTR 

TCSSTR-  TEMPERATURE  OF  THE  COLD  SOLID  PROPELLANT  IN  DEG  RANKINE 
TCSSTR  • TRSTR 

♦ **  PROPERTIES  OF  THE  GAS  PHASE  FLAME 
READ  (5*6)  CPSTR*  SKGSTR*  AEG 
SKGSTR  » SKGSTR  * l*0E-05 

EORG-  AEG/(R«TCS)  ASSUMING  R- 1*987  CAL  MOLE-K  AND  TCS>300*K 
EORG«AEG/( 1*987*300*00) 

TF- TFSTR/ TCSSTR 
ETF«EXP(-EORG/TF) 

***  REFERENCE  STATE  AT  WHICH  CONSTANTS  ARE  EVALUATED  *** 

TSSTRR-  REFERENCE  TEMPERATURE  OF  SURFACE  IN  DEG  RANKINE 
ASSUME  SURFACE  REGRESSION  RATE  IS  SRS  IN  FT/ SEC 
NOTE—  3.28E-02  FT/SEC  ■ 1 CM/SEC 
PSURS-PRESSURE(PSI  ) AT  SURFACE  WHEN  TS-TSR  AND  RATE  ■ SRS 
READ  (5*6)  TSSTRR*  SRS*  PSURS*CTS1 
TSR- TSSTRR/ TCSSTR 
EX  S- EX  P(  - EO  RS/ TSR  ) 

C NOTE--  SRS-BR*EXP(-EORS/TSR) 

BR-SRS/EXS 
PSUR-PSURS/PRSTR 
WRITE  (6*214)  TSSTRR*  SRS*  PSURS 
WRITE  (6*216)  SIGMA*  DOK*  DGKNL*  SMDPC 
C ***  EVALUATION  OF  CONSTANTS  *** 

BI GK- SK  SSTR/ ( RH  SSTR*  CSTR*  ARS  TR*  EL  STR) 

YHC*SQRT(BI  QK) 

BRAY- BR/ ( ARSTR* YH  C ) 

C QFSTR-  EXOTHERMIC  HEAT  RELEASE  IN  GAS  PHASE  REACTION  IN  BTU/LBM 

QFSTR- QWSTR* TCSSTR* (CPSTR*( TF- TSR)* CSTR* ( TSR- I *00) > 

Z IH- QWSTR/( CSTR* TCSSTR) 

Z2PH- ( SKG STR/ SKSSTR)* ( QFSTR/ ( CPSTR*  TCSSTR) > * ( ELSTR/(  RHSSTR*  ARSTR) ) 
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2 1>2 IH«BRAY 

21T  ■ CCPSTR/CSTR  - l.Q)  • BRAY 

22P-22PH/BRAY 

QMC-(RHSSTR*YHC)/RHRSTR 

C ***  SOLUTION  FOR  WCON  BASED  ON  GIVEN  VALUES  OF  PSUR  AND  TSh  *** 

SRR»SRS/(  YHC*ARSTR) 

ACONR-TSR-  1.00 
TYH«ACONR*SRR 

WSTRR-(  TYM^2  1H*SRR>«>C  SRR/22PH) 

W CO  N»  W S TRR/ < P SUR*  P S UR*  E TF  ) 

***  ITERATIVE  SOLUTION  FOR  A TS  COMPATIBLE  WITH  INITIAL 
***  PRESSURE 

WSTRS»WCON*PIN*PIN*ETF 
22-22P0WSTRS 
CTS  ■ CTSl 
SAVE! I)«1.00 
SAVE(2)>0.01*CTS 

20  EETS*EXP(  BORS/CTS) 

GH»-<21/EETS)  ♦ Z2*EETS 
CAPF»<CTS- l.OO)*BRAY/EETS  - GH 
CALL  I TSUBCCAPF*  CTS.  SAVE.  0.000001*  150) 

KBR-SAVE(  1) 

GO  TO  (20.20.20.20.22.21).  KBR 

21  WRITE(6.203)  CTS.GH.  CAPF 

22  TS-CTS 
ACON-TS-1.00 
R«BRAY*EXP(-EORS/TS) 

Y0-*7.000 
NBS-11 

DXSBS-  EL  STR/  FLO  AT(  NBS-  1 ) 

WRf  TE<6.  210)  OFSTR.  OWSTR.  TCSSTR.  CPSTR.  CSTR.  TF.  TSR 
WRi TEC  6. 204 ) BI GK. YHC. BRAY. BR. WCON. WS  TRR 
WRITE(6.205)  EORG.  EORS.  TF.  TS.  ETF 
WRI  TEC6.206)  R.  ACON.  QMC.Z  1H.Z2PH.  WSTRS 
WRI  TEC  6.  207)  Z 1.Z2P.  DXSBS.  ARSTR.  RHRSTR 
DYAC  l)-0.50 
DrA(2)-0.20 
DYA(3)*0. 10 
NTYC  1)»8 
NTY(2)«10 
NTYC3)»I0 

JTOT-NTYC  1)*NTYC2)*NTYC3)*1 
JTOWl-JTOT-  1 
TYLOCC  l>--Y0 
NF-1 

DO  46  1-1.3 
NI«NF*1 
NF«NF*NTYC1  ) 

Or>OVACI  > 
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DO  45  J-M*NF 
TYLOC(  J)-TYLOC<  J-  D+DY 

45  CONTINUE 

46  CONTINUE 

IF  (UT  .LE.  0*0)  R ■ 0.0 
DO  30  IBS-l.NBS 

SMXBS(IBS>«-  1 .004- FLOAT!  IBS-  I )*(  DXSBS/ELSTR) 

APLOC(  IBS)«PIN 
RGR<IBS>>R 
FSMDG(IBS)-R*QMC 
DC  25  J“  I.  JTOT 
Y-TYLOC(.n 

CT(  J*IBS>-ACON«EXP(R«Y)  ♦1.000 
25  CONTINUE 
30  CONTINUE 
G2-2.00'0G/M 
GM1>6AM- 1.000 
on 12>GM 1/2.00 
6M12G-6Ml/( 2.00«0AM) 

SGM  l*GAM*Gni 

COMPUTE  LINEAR  COMBUSTION  PARAMETERS  A*  B*  AND  N. 
IF  (NOPT  .NE.  1)  GO  TO  160 
E - EORS/TS 
A - E * (TS  - 1.0)/TS 
RSTR  > R * ARSTR  * YHC 
RMSTR  - RHSSTR  • RSTR 
HMCP  - RMSTR  * CPSTR 

S0LM1  ■ OFSTR*SKGSTR*WSTRS/(HMCP*HMCP*TS*TCSSTR) 
ELLCC  ■ <E  * SQLAM  ♦ 1.0)  • CPSTR/CSTR 
EOCT  ■ E * OWSTR/(CSTR*TS*TCSSTR> 

B - (A  ♦ ELLCC  ♦ EQCT)/A 
WRITE  (6#  2 15)  A.  B 
C 

160  LPRINT-0 

WRITE(6«217>  ASMB(  1)«ASMC(  1)«ACMB(  1) 

I DDA(  1)«0 
XI  SW!  1)-ASMC(  1) 

RETURN 

END 


SUBROUTINE  START(N0PT*NT#  T«NPRNT> 

C 

COMMON/HEAD/  H EADER!  7 > # LPRl  N T« N TI M ES«  NSHOCK«  JPLOT*  PI N 
COMMON/FI  XPR/M TO TA(  5)  « GAM*  GM  1 « GM  1 2*  GM  1 2G*  62*  GGM  1 * DGK*  06KNL 
COMMON/  TIMTRN/ DT«  DT22*  DX A(  5)  « XI  SW<  5>  * 1 DDA<  5)  • ACMB(  5)  * ASMB(  5)  * 

1 ASMC(5) 

COMMON/ SPCTRN/  CAPX( 200*  5>*Xl(200*  5)*  SMX(2C0*  5>* 

1 RW2(200*  5)*CLNA(200*  5> 

COMMON/COMFIX/  HAF(  200*  5>*  SMDG(200*  5>*  SMDP(  200*  S>  * XI  FC*  HAFC*  SMDGC 
1 * REACTN* SHDPC 

COMMON/ VARO/R(  200*  5>*  RP<  200*  5>*  U(  200*  5>*  UP(  200*  5>*  S(  200*  5) 


326 


It  P<  200#  5)  / SSP<  200«  5) 

COMMON/NOZ  DAT/ EL  STR#  RCH  STB*  UT 

COMMON/M SFSLD/  SMXBS(  100)*APL0C(  100)*  FSMDG(  100>*  OXSBS*NBS*  APC(  100) 
COMMON/ TEMWAV//CT(  101*20)*CNU(  101*20)*  SW(  101*20)*  SV(  101*20)*  HGh(  20) 
COMMON/BRNCON/  DTA(  3)  * NTY(  3)  * ALFTA(  3)*  TYLOC(  50)  * YO*  Z 1*  Z2P*  WCON* 
1E0R6*  EORS*  ETF*  QMC*  BRAY*  JTOT*  JTOTM  1*  ARSTR*  RHRSTR*Z  1 T*  TS 
COMMON/NOZAEM/  UBAR*  PBAR*  ADM 

COMMON/ SSVAL/  RBAR( 20) * CTBAR( 10 1* 20) * CTYBARC 101*20)* 

1 Z2KP( 20)* ETGH( 20)* ERTS< 20) 

COMMON/ PL TVAR/  TCONV*  PI  1*  TPLOT(  1000)*YPL0T<  3*  1000)*  SMDGl  1 

DIMENSION  AREA(  100)*  SAVE(8) 

1 F0HMAT(7A10) 

100  F0RMAT(2X*I  3*  10E12>5) 

101  F0RMAT(4X**M»*  5X**CAP  X**8X**X1**9X*>*X  STB** 

1 9X*«RWALL**6X**DRWDX**8X*«AREA**  7X**DLNADX«*  7X*«RW2») 

102  FORHATC  IH  1*  3X*  *M«*  4X*  * SMDG^i*  8X*  ♦ SMDP«*  6X*  «HAF«  ) 

103  FORMAT!/*/*/**  THE  FOLLOWING  FLOW  FIELD  WAS  READ  IN  ON  CARDS  FRO 
IM  A PREVIOUS  COMPUTATION*) 

105  F0RMAT(2X*  5E14*8) 

107  FORMATCBX//*  UBAR  ■ **F9<6**  PBAR  - **F9.4* 

1 * ADM  ■ **F9«6**  TCONV  « **F9.6// 

2 2X**  THE  RESTARTED  FLOW  FIELD  CONTAINING** 

3 * THE  ADDED  DISTURBANCE  FOLLOWS  *) 

108  FORMAT!  2X**  I TSUB  IN  START  W*N  . C.  • ! WLAST*  WCHOK*  UT*  RHON*  ARL)  ARE**/ 
16E14.8) 

109  FORMAT  !3I5*F10*0) 

no  FORMAT  !2X//9X**MASS  BALANCE  !LBM/SEC)  t **  lOX* 

1 *MASS  IN  ■ **  F9.4*  5X**MASS  OUT  ■ **F9.4/) 

111  FORMAT  !9X**0MEGA  ■ **F7.4/) 

NT  ■ 0 
T - 0.0 
Pl-3*  1415927 
KS-  1 
KST-1 

MT0T-MT0TA!KS) 

CMB«ACMB!KS) 

SMB-ASMB!KS) 

DX-DXA!KS) 

I DDA! l)-0 
XI SW! 1)>ASMC! 1) 

CX-0.00 
WRI  TE!6*  101) 

HW  > RCHSTR 

DRWDX  ■ 0.0 

AW  > P1*RW*RW 

00  10  I«1*MT0T 

CAPX!I*KS)aCX 

XI!I*KS)«CMB*CX*SMB 

SMX!1*KS)>X1!1*KS) 

SMXI  - SMX!I*KS) 
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0LNA(1«KS)  - 0*0 
KWe<I«KS)  ■ 2.0*ELSTR/RW 
AREA( I >aAW 
SMXP-SMXI*ELSTR 

WR1TE(6*  lOQ)  I*CX«XKI«KS>«SMXP<RW«DRWDX«AW# 

1 CLNA(I«KS}<RW2U«XS> 

CALL  COMBNT(  SMXI  «K S«KST* HAF(  I »KS>  * SMDG(  I « KS) # SMDPU*KS)  > 
CX»DX*FLOATU  ) 

10  CONTINUE 
WRl  TEC  6*  102) 

DC'  15  M-1#MT0T 

WKI  TEC  6*  100)  SMDGCM«KS>#  SMDPCM*KS)*HAFCM«KS) 

15  CONTINUE 
HIN  a HAFC 
RINaPIN/HIN 

SlNaALOGCPlN)-GAM*ALOGCRIN) 

AI  N Ta  SQRTC  P I N / R1 N > 

UIN  a UT*A1NT 
OOG  a 1.00/GAM 
OLO  a SMXC  1«KS) 

DLL  a SMXCMTOT.KS)  - DLO 
DUDX  a UIN/ DDL 

CPART  a 1.0  ♦ SQRTC 1.0  * 8. 0* DUDX/DGK ) 

DO  40  M a UMTOT 
RCM«KS>  a RIN 
PCM.KS)  a PIN 
SCM«KS>  a SIN 
SSPCn.KS)  a AINT 

UCM«KS>  a CSMXCM«KS>  > CLO)  * DUDX 
UPCM«KS)  a R.O*UCM*KS)/CPART 
RPCM.KS)  a 0*5*SMDPC*CPART*RCM«KS) 

40  CONTINUE 
LPRINTaO 

READ  C5#109>  N SHOCK.  I CTYPE«  I SEN.  M1PL 
READ  C 5.  109)  NTIHES 
PI  1 a PC  1.  1) 

SMDGll  a SMDGC  1.  1) 

UBAR  a UCMTOT.  4,) 

PBAR  a PCMTOT.  1 ) 

ADM  a GM12G  * UBAR/ PBAR 

LPRINTaO 

JPLOT  a 0 

TCONV  a SSPC  1.  1)/C  SMXCMTOT.  1 ) • SMXCl.l)) 

WRITEC  6.  103) 

DO  176  IBS  a l.NBS 
APCCIBS)  a APtOCClBS) 

176  CONTINUE 

CALL  OUTPUTCNT.  T.KST.O) 

LPRINT  a 0 

CALCULATE  HASS  BALANCE 
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SMOUT  - R(MTOT«  1>*RHRSTR*PI*RCHSTR*RCHSTR*U(MT0T«  l)*AHSTh 

Sl>1  - 0*0 

00  173  H > S«MTOT 

DELX  ■ ELSTR*DX 

AVG  • <SMDG(M«1)  ♦ SHDG(M- 1 * 1 > ) /2. 0 
SUM  ■ SUM  ♦ AVG* DELX 
173  CONTINUE 

SMIN  - 2.0*P1*RCHSTR*RHRSTR*ARSTR*SU1 
WRITE  (6«110>  SMIN«  SHOUT 

IF  (RGR(1>  .LE>  0«0>  GO  TO  169 

FREQ  ■ PI  * SSP(  1*  l>/(  SMX(MTOT>  1)  - SMX(1«1>) 

OMEGA  - FREO/(RGR( 1>*RGR(  1>> 

WRITE  (6«  111)  OMEGA 


i 

( 


CALCULATE  INITIAL  DISTURBANCE 
169  AMDIST  ■ AHPL  * P<1*1> 

DLO  - SMX( 1# 1 } 

IF  <ICTYPE.EQ.2)  GO  TO  174 
AMSTRT  - AMDIST 
MSTOP  • 9 

DEL  - SMX(9« 1)  - DLO 
GO  TO  175 

174  4MSTRT  ■ 0.0 
MSTOP  • MTOT 

DEL  - SMX(MT0T«1>  * XO 

175  DO  180  M - IfMSTOP 

PINC  • AMSTRT  ♦ AMDl  ST*COS(PI*(  SMX<M«  1)-X0)/DX> 
IF  (ISEN.EO.l)  GO  TO  177 
TLOCL  * P<M« 1)/R(M* 1) 

P(M« 1)  ■ P(M* 1)  ♦ PINC 
R(M«1>  - P(M«1)/TL0CL 

S(M*1>  - AL0Q(P(M«1>)  - GAM*ALOG(R(M*  1>) 

GO  TO  179 

177  P(M*1)  - P(M*1)  ♦ PINC 

R(M«1>  - (P(M* 1 >/EXP( S(M* 1) ) >**00G 
179  SSP(M. 1)  - SORT(P(M« 1)/R(M« 1>) 

160  CONTINUE 

READ!  5«  1>(HEADER(KK>«KK*1#7> 

WR1TE(6«107>  UBAR«  PBAR«  AEM*  TCONV 

NT>0 

T-O.OO 

IF  INOPT.NE. 1)  60  TO  200 
DO  185  N - I«NBS 
DO  185  J • 1«JT0T 
CTBAR(J«N)  ■ CT(J«N) 

CTYBAR(J«N)  ■ (CT(J«N)  - 1.0)  * RGR(N) 

185  CONTINUE 

200  CALL  NUTEMP(KST.NOPT«NT) 

JPLOT  - 0 

CALL  0UTPUT(NT*T«KST*0) 

CALL  L061C<KST«N0PT*NPRNT) 

RETURN 

END 
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SUBROUTINE  OUTPUK  NT#  T» K ST» NH»IT) 

COHMON/HEAD/  HEADER!  7 )*  LPRl  NT#N  TIM  ES«N  SHOCK#  JPLOT*  PIN 
COMMON/ VAR6/R(  200#  5>#  RP(200#  S)#  U(  200#  5)#  UP(  200#  S>#  S(  200#  5) 

1 # P(  200#  5>  # SSP( 200#  S) 

COMMON/FI XPR/MTOTA! 5>#  GAM#  6M I#  GM 12#  GM 12G#  G2#  GGM  1#  DGK#  DGKNL 
COMMON/ TIM TRN/DT#  DT22#  OXA(  5>#XI  SW(  5>#I  DDA(  5>#  ACMB(  S>#  ASMB(  S># 

1  ASMC<5) 

COMMON/ SPCTRN/  CAPX( 200#  5>#XI ( 200#  5)#  SMX( 200#  5># 

I RW2(200#  5>#0LNA(200#  5> 

COMMON/ COM  FIX/  HAF(  200#  5)#SMDG(  200#  5>#  SMDP(  200#  5)  # XI  FC#  HAFC#  SMDGC 
1 #REACTN«  SMOPC 
COMMON/NOZDAT/ELSTR#  RCHSTR#  UT 

COMMON/M  SFSLD/  SMXBS(  100)#APL0C(  100)#FSMDG<  100)  # DXSBS#  NBS#  APC(  100) 
COMMON/ TEMWAV/CT!  101#  20)#  CNU(  101#  20)#  SW(  101#  20)#  SVC  101#  20)#  RGRC  20) 
COMMON/BRNCON/  DYAC  3)#NTY(  3)#  ALFTAC  3)«  TYLOCC  SO)#  YO#  Z 1#  Z 2P#  VCON# 
1E0R6#  EORS#  ETF#  QMC#  BRAY#  JTOT#  JTOTM  1#  ARSTR#  RHRSTR#Z  1 T#  TS 
COMMON/ DCMG/  SM  DDGC  200#  5) 

COMMON/NOZAOM/  UBAR#  PBAR#  ADM 

COMMON/ PL  TV  AR/  TCONV#  PI  1#  TPLOTC  1000)#  YPLOTC  3#  1000)#  91DG1  1 

1 FORMAT!  1H1#2SX#7A10) 

2 FORMAT!/#  15X#* COMPUTATION  STEP!*#  I 5#*)  WHERE  TIMECNON- DIMEN SI ONAL 

1)-*#E11.A#*  DT-*#E11#4#*  TCMIL-SEC)-*#  El  1. 4) 

3 FORMAT!  7X#*INDEX  M*#6X#*X  STR*# 8X# *MACH  NO#*#  SX#« PRESSURE* # 5X# 
1*DENSI  TY*#6X#*VEL0C1  TY*#  5X#  * ENTROPY*#  6X#  * ENTHALPY*#  SX#*A!LOC>*) 

4 F0RMAT!7X#I4#4X#8E13#6) 

5 F0RMAT!/#/«9X#*REGI0N!*#I2#*)  WHERE  SM>*# 

1 E12#5#*  SMC-*#  E12#  S#*  CMB-*#  El  2#  S#  / ) 

6 FORMAT  !/#32X#*PARTICLE*#  SX#*PART1CLE*/7X#*1NDEX  M*# 

1 6X#*X  STR*#8X#*DENSI  TY*#  SX#*VELOCI  TY*#6X#*SMDG*«9X# 

2 *SMDP*#8X#*SMDDG*) 

7 F0RMAT!/#9X#*1NDEX  OF  DISCONTINUITY  D1  RECTI  ON-*#  I 3# 

1 * AND  DISCONTINUITY  LOCATION-*#  E12#  S# /) 

8 F0RMAT!/#8X#*IBS*#9X#*XSTRBS*#7X#*F  SMD6*#7X# 

1*R*#  1 1X#*TEMP  SUR#*#  SX#*PRESS!LOC)*) 

9 FORMAT!  2X#*STEP!*#  I 4#*>  T-*#FI0#6#*  PC  1 )-*#  F 10#6# • P!*#12#*)-* 

1#F10#6#*  P!*# I 2#*)-*# FI0#6#*  U!«# I 2#*)-*# F10#6# 

2*  M!*#12#*)-*#F10#6#*  MG!  I)-*#F10#6) 

10  FORMAT!  1 6X#  F 1 0#  6#  7X#  F 10*6#  8X#  F 10#  6#  8X#  F 10#  6#  * U!  *#  1 2#  • ) >*#  F 10#  6# 

1 * UP!*#I2#*)-*#F10#6#*  MQ(*#12#*)-*#F10#6> 

LPRINT-LPRINT*  1 
IFCLPR1NT#LT#0)  GO  TO  200 
LPRINT*- 100 

IF  (NPRNT  #GT#  0)  GO  TO  200 
TEL  S TR- 2 • 00*  EL  S TR 
TACT- T* CEL STR/ ARSTR)* 1000# 000 
WRl  TEC  6#  1 ) C H EADER!  JJ  ) # J J-  1 # 7 ) 

WRITE!  6#  2)  NT#T#DT#TACT 
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DO  100  KS«1*KST 
SMB«ASMB(KS> 

CHB>ACMB(KS) 

SMC>ASMC(KS> 

VRITE(6*5)  KS*SMB«  SnC«CMB 
WRI  TE(  6*  3> 

MT0T«MT0TA(K5) 

MID  ■ (MTOT  ♦ l)/2 
DO  50  M-UMTOT 
RHOG-  RCM.KS) 

SG-S(M«KS) 

PG*P(H»KS) 

UG«U(H«KS> 

HLOOPG/RHOG 

ALOOSSP(M«KS) 

EMACH-UG/ALOC 
SMXSTR>SMX(M*KS)*ELSTR 
RWALL- TEL  STR/RV2<M«  K S) 

WRI TE( 6#  4)  M«  SMXSTR*  EMACH*  PG»  RHOG«  UG«  SG«HLOC«  ALOC 
50  CONTINUE 

WRITE(6*7>  IDDA<KS)«XI  SW(KS) 

WRI  TE(6«6> 

DO  60  M-I*HTOT 

SMXSTR  ■ SMX(M«KS)*ELSTR 

WRI  TEC  6*  4)  M«  SMXSTR*  RP(M«KS)«  UP(M«KS>*  SMDG(M«KS>* 

1 SHDP(M*KS)*  SMDDG(M*KS) 

60  CONTINUE 
WRI  TE(6*e> 

DO  150  IBS*1*NBS 
SMXBSS«SMXBS(  I BS)4>ELSTR 

WRI  TEC  6*  4)  I BS*  SMXBSS*  FSMDGC  I BS>*  RGRC  I BS>«  CTC  JTOT*  I BS>  * APLOCC  I BS) 
150  CONTINUE 
100  CONTINUE 
200  NTH  • CNT/2>  * 2 

IF  CNT  .NE.  NTR)  GO  TO  210 
EMACH  ■ UCMTOT#  n/SSPCMTOT*  1) 

IF  CSMDOll  .LE*  0*0>  GO  TO  204 
YSMDG  ■ CSMDGCl*!)  - SMDGl  1 )/SMDGl  1 
YSMDGN  • C SMDGCMTOT*  1)  - SMDGl  D/SMDGl  1 
GO  TO  206 
204  YSMDG  > 0*0 
YSMDGN  - 0*0 

206  IF  CNPRNT  *0T*  0)  GO  TO  207 

WRI  TEC 6*9)  NT«T*PC  1*  I >*MI  D*  PCMI  D*  1 )«MT0T*PCMT0T«  1>* 

1 MTOT*  UCMTOT*  I )«MT0T«  EMACH*YSMDG 

207  JPLOT  ■ JPLOT  ♦ 1 
TPLOTCJPLOT)  > TCONU  * T 

YPLOTC  I*  JPLOT)  - CPC  1*1)  - PID/Pll 
YPL0TC2* JPLOT)  ■ CPCMID*!)  - P11)/P11 
YPL0TC3* JPLOT)  ■ CPCMTOT*!)  - P11)/P11 
IF  CNPRNT  *GT*  0)  GO  TO  210 

WRITE  C6*10)  TPLOTCJPLOT)*  CYPLOTCKK* JPLOT)*  KK  - 1*3)* 

1 M1D*UCM1D*  1)*M1D*UPCM1D*  1 )*MTOT*YSMDGN 

210  RETURN 

I END 

I 

I 
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SUBROUTINE  LOCI  C<KST#NOPT*NPRNT) 

COMMON/HEAD/  HEADER(  7 ) * LPRI  NT*N TIM ES«NSHOCK«  JPLOT*  PIN 
COMMON/FIX PR/M TO TA( 5)*0AM«GM 1« GM  1 2* GM 1 2G# GGM  1«  DGK«  DGKNL 
COMMON/ TIMTRN/DT#  DT22#  DXA<  5>#X1  SW<  5)#  I DDA<  S>*  ACMB<  5)«  ASMB(  5)  » 

1  ASMC(S) 

COMMON/ SPCTRN/  CAPX<  200«  5>» XI ( 200«  5) * SMX( 200«  5) * 

1 RW2(  200» S>« DLNA( 200# S) 

COMMON/COMFIX/  HAF(  200«  S>*  SHDG(200«  5)>  SMDP(  200«  5)  • XI  FC«  HAFC*  SMDGC 
1 «REACTN«  SMDPC 

COMMON/ UARG/R(  200«  5>«  RP(  200«  S)>  U(  200*  5>*  UP(  200*  5)*  S(200*  5) 
1*P(200*S)*SSP(200«  5> 

COMMON/ TEM  WAV/ CT(  101*20)*CNU(  10I*20>*SW(  10t«20>*SV(  101*  20>*  RGR(  20) 
COMMON/NOZDAT/ELSTR*  RCHSTR*  UT 

COMMON/M SFSLD/  SHXBSC  100)*APL0C(  100>*FSHDG(  100>*  DXSBS*NBS*  APC(  100) 
COMMON/BRNCON/  DYA(  3>  * NTY  ( 3>  * ALFTA(  3)*  TYLOCC  50>  * VO*  Z 1*  Z 2P*  WCON* 
lEORG*  EORS*  ETF*  QMC*  BRAY*  JTOT*  JTOIM  1*  ARSTR*  RHRSTR*Z  1 T*  TS 
COMMON/DOMG/  SMDDG(200*S> 

COMMON/ VARUPD/  RUD(  2*  S>*  UUD(  2*  5)*  SUD(  2*  S)*PUD(  2*  5>*  SSPUD(  2*  5)* 

1 RPUD(  2*5)*  UPUD(  2*  5) 

COMMON/ SSVAL/  RBARC 20) * CTBAR( 101* 20)* CTYBARC 101*20)* 

1 Z2RP(20)*ETGH(20)*ERTS<20) 

COMMON/ PL TVAR/  TCONV*  PI  1*  TPLOTC  1000)  * YPLOT<  3*  1000)*SMD611 

DIMENSION  IBUF<  512)*  I TT<  3>*  I TY  1<  3>*  I TY2<4)*1  TY3<  A)*l  TY4<  4)* 

1 DUMMYT<  500)*  DLMMYYC  500)*PRS<  3)*  TIME!  3)* 

2 PMAX( 100)*  T1MAX( 100)*  PKPK(  100)*  TMEAN( 100) 

2 F0RMAT(2X*3I  10*2E15*8) 

3 FORMAT! 2X* 5E1 5*8) 

202  FORMAT!/**  CMB  FOR  REGION  KS«**I2**  IS  ■**  El  4. 6*  5X*  *!N  T-**  I 8*  • 

1 WHERE  T-**E14.6**)«) 

203  FORMAT!*  THE  LAST  REGl  ON!  K S-**  1 2*  * ) IS  BEING  DELETED*) 

204  FORMAT!*  THE  SHOCK  WAVE  I S TO  BE  REFLECTED  ON  THIS  STEP*) 

205  FORMAT!//**  IN  REGI ON! K S>**  I 2* * ) SHDET  WAS  FOUND  TO  BE«*»E14. 

18**  FOR  JS«**13**  WITH  DI  RECTI  0N»**  I 3*  * !NT»**I8**  WHERE  T«**  El 

24.6**)*) 

206  FORMAT!/*/**  THE  SHOCK  WAVE  WAS  FOUND  TO  EXIST  IN  THE  FOLLOWING 
IFLOW  FIELD*) 

207  FORMAT!/*/**  THE  NEW  FLOW  FIELD  REGIONS  APPEAR  AS  FOLLOWS  !N0 
ITE..  THE  ADVANCE  AT  THIS  TIME  STEP  IS  NOT  YET  COMPLETE)*) 

208  FORMAT!/*/**  THIS  FLOW  FIELD  APPEARS  AS  FOLLOWS  *) 

210  FORMAT!  2X/2X**NPMAX  ■ **  I 3*  SX;*TMAX  « **F8.4*5X* 

1 *PMAX  ■ **F8»5*  5X**PK-PK  AMPLITUDE  • **F8>5« 

2 * AT  T - «*F8.4*  5X**PMEAN  ■ **Fe.S) 

500  FORMAT!/*/**  IN  LOGI  C!NT-**  1 6*  * AT  T***E14.8**)  THE  RE6I0N!K 

1S«**I2**>  WHERE  CMB-**  E14.8**  HAS  FAILED  THE  CRITERIA  FOR  A SMALL 
2SECTI0N*} 

501  F0RMAT!2F10«0*I5) 

502  FORMAT!  21  5) 

503  FORMAT  ! 2X/2X«*NEGAT1  VE  REGRESSION  RATE  AT  M ■ **I2) 
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DATA  ITT/21HDIMENSI0NLESS  TIME*  T/» 

1 I TY  1/30HHEAD-END  PRESSUHE  PERTURBATION/* 

ITY2/33HMID-CHAMBER  PRESSURE  PERTURBATION/* 
ITY3/32HN0ZZLE-EMD  PRESSURE  PERTURBATION/* 
ITY4/39HL0G  HEAD-END  PRESSURE  M4PLI  TUDE  (PK-PK)/ 

READ  (5*502)  LPLOT*NLAST 
IF  (LPLOT  .EQ.  0)  60  TO  6 

READ  (5*501)  YMAX*  DELY*NTICY 
READ  (5*501)  TMAX*DELT*NT1CT 
READ(5*501)  TMAX4*  DELT4*NTI  CT4 
YMIN  • -YMAX 
THIN  > 0*0 

6 K1  - 1 
LCHEX-0 
DXMIN  - 1.00 

DO  5 KS  ■ 1*KST 
SMXl  ■ SMX(  I*KS) 

SMX2  - SMX(2*KS) 

DXTR  ■ SMX2  - SMXl 

IF  (DXTR  *LT.  DXMIN)  DXMIN  - DXTR 

5 CONTINUE 

IF  (NOPT.NE.  1)  GO  TO  8 
DO  7 IBS  ■ 1*NBS 
RBAR(IBS)  - ROR(IBS) 

Z2PH  ■ Z2P4BRAY 
PC  ■ APC(IBS) 

Z2BAR  • Z2PH*WC0N*ETF*PC*PC 
Z2RP(IBS)  ■ 2.0*Z2BAR/(RBAR(  IBS)4PC) 

ZIH  - Z 1/BRAY 

GHBAR  • Z1H*RBAR(IBS)  ♦ Z2BAR/RBAR(  I BS) 

CTS  - CT(JTOT*IBS) 

ETT  - EORS/(CTS*CTS) 

ETGH(IBS)  ■ GHBAR* ETT  ♦ Z 1T*RBAR(  I BS) /BRAY 
ERTS(IBS)  - RBAR(IBS)*ETT 

7 CONTINUE 

6 NPHAX  « 1 

PMAX(l)  - (P(I*I)  - PI1)/P11 

T1MAX( I)  - 0.0 

PMEAN  > 0*0 

DO  200  NT«1*NT1MES 

MIAX-l.OO 

UMAX  ■ 0.0 

DO  15  KS>1*KST 

MTOT*MTOTA(KS) 

DO  10  M«1*MT0T 
UTl  - ABS(U(H*KS)) 

APOS  - SSP(M«KS) 

IF  (UTl  .GT*  UMAX)  UMAX  - UTl 
IF  (APOS  .GT.  AMAX)  AMAX  > APOS 
10  CONTINUE 
15  CONTINUE 
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20  DT-0«800*0XMIN/(  UMAX  * AMAX) 

DT22-DT*DT/2.00 
TWDT-2.00*DT 
ALFTAC  1>-DYA(  D/TWDT 
AtFTA(2)-DYA(  2>/TWDT 
ALFTAC  3)«DYA<  3)/TWDT 

**«*  CALCULATE  PRESSURE  MAXIMA  AND  MINIMA  **** 

IF  (NT  .GT.  3)  GO  TO  30 
PRS(NT>  ■ (P(l#l)  - PID/Pll 
TIME(NT)  ■ T * TCONV 
GO  TO  35 

30  PRS( 1)  - PHS( 2) 

PRS(2>  - PRSC3) 

PRS(3>  - (P(l»l>  - Pll)/Pll 
TIMECl)  > TIMEC2) 

TIME(2)  ■ TIME(3) 

TIME(3>  ■ T • TCONV 
35  IF  (NT  .LT.  3)  GO  TO  AO 
DPL  ■ PRS(3)  - PRS(2) 

DPS  • PRS(2)  - PRS( 1) 

IF  (DPL*DPS>  A5*  45#  40 

45  DPMXl  ■ PMAX(NPMAX)  - PMEAN 
DPMX2  ■ PRS(2>  - PMEAN 

IF  ( DPHX14DPMX2)  46#  48*  48 

48  PHXl  - ABS(  DPMXl) 

PMX2  • ABS(DPMX2> 

IF  (PMX2  •GE«  FMXl)  GO  TO  49 
GO  TO  40 

46  IF  (NPMAX  *E0.  1 ) GO  TO  47 

SMALL  - 0*5  * ABS(  DPMXl) 

PNX2  - ABS(DPMX2) 

IF  (PMX2  .LT*  SMALL)  GO  TO  40 
PMXI  ■ PMAXCNPMAX- 1) 

PMX2  - PMAX(NPMAX) 

PKPK(NPMAX)  ■ ABS(PMX2  * PMXI) 

IMEAN(NPMAX)  - ( TIMAXCNPMAX- I ) ♦ TIMAX(NPMAX)  ) /2.0 
PMEAN  ■ ( PM  AX  ( NPMAX- 1)  ♦ PMAX(NPMAX)  )/2.0 
WRl  TE(6#210)  NPMAX#  TI  MAX(  NPMAX  )#  PMAX(NPMAX)  # PKPK(  NPMAX  ) # 
1 TMEAN( NPMAX)*  PMEAN 

47  NPMAX  - NPMAX  ♦ 1 

49  PMAX(NPMAX)  - PRS(2) 

TIHAX(NPHAX)  ■ T1HE(2) 

40  CONTINUE 

T»T»DT 

****  TEST  FOR  SHOCK  DEVELOPMENT  ***• 

IF  (NSHOCK  .EQ.  0>  00  TO  101 
DO  100  KS«K1#KST 
Yl-P(  1#KS> 

Y2-P(  2#KS> 

Y>P(3#KS) 

HTDT-HTOTA(KS) 

SHDETM-O.OOO 
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DO  95  MO»«»MTOT 
Y4«P<MO»KS) 

CALL  SHDETL(Y  1«Y8«Y3*Y4«  SHDET«NYES) 

1 F(NYES«EQ.O>  GO  TO  9 2 

1F(SHDET  *LT*  SHDETM)  GO  TO  9 2 

5HDETM-SHDET 

HOH-MO 

YlH«Yt 

Y4H-Y4 


92  Y1-Y2 
Y2-Y3 
Y3-Y4 

9 5 CONTINUE 

1F(NYES«EQ«0>  GO  TO  100 
INDD— 1 

1F(Y1H.GT.Y4H)  INDD->1 
JS-MOH-  1 

1F(INDD*EQ*  1>  JS-M0H>2 

WRI  TEC  6«  205)  KS*  SHDETM*  JS*  INDD*NT*  T 

WRI  TEC  6*  206) 

LPRINT^O 

CALL  OUTPUTCNT*  T*KST*NPRNT> 

LPRINT^O 

STOP 

100  CONTINUE 

101  CALL  BNEHOCCKST*-!) 

IF  CUT  .GT*  0«0)  GO  TO  103 
CALL  BNCMOCCKST*  1 > 

GO  TO  104 

103  CALL  NOZMOCCKST) 

104  DO  105  KS-1*KST 
CALL  TAYLORCKS) 

105  CONTINUE 

DO  106  KS  - KI«KST 
MTOT  ■ MTOTACKS) 

UC1«KS)  - UUDC  1«KS> 

UPCUKS)  ■ UPUDC  UKS) 

PC1*KS)  * PU0C1*KS> 

RC1«KS)  ■ RUDClfKS) 

RPC1«KS)  • RPUDC  UKS) 

SC  UKS)  ■ SUDC  UKS) 

SSPCUKS)  ■ SSPUDCUKS) 

UCMTOT*KS)  ■ UUDC2*KS> 

UPCMTOT*KS>  ■ UPUDC  2*KS) 

PCMTOUKS)  - PUDC2«KS) 

RCHTOUKS)  - RUDC2«KS) 

RPCMTOUKS)  • RPUDC2«KS) 

SCMTOUKS)  • SUDC2«KS> 

SSPCHTOT*KS>  ■ SSPUDC2*KS) 

106  CONTINUE 
121  CONTINUE 
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► IF  (N0PT.EQ*0)  GO  TO  198 

. 193  CALL  NUTEMP<KST»NOPT»NT) 

194  DO  196  KS-WKST 
MTOT-MTOTA(KS> 

DO  19  5 M-  l#MTOT 
OSMDG-SMDG(M*KS> 

CALL  COMBNTC  SMX(M*KS>«KS«  KST«HAF(M«KS)«  91DGN«  SMDP(M«KS>  > 
SMDDG(M*KS)*(  SMDGN-OSMDG)/DT 
SMDG(M«KS)«  91DGN 
IF  <SMDGN  .GE.  0*0)  GO  TO  19  5 
WRI  TE  C6*  503)  M 
LPRINT  ■ 0 

CALL  OUTPUKNT*  T*KST#NPRNT) 

STOP 

19  5 CONTINUE 
196  CONTINUE 

198  CALL  OUTPUT<NT»  T*KST*NPKNT) 

IF  (LPLOT  .EQ.  0)  GO  TO  800 
T1  ■ TCONV  ♦ T 

IF  (( T1<GT<11<1  AX)  <0R<  <JPLOT<GE<  500)  ) GO  TO  300 
GO  TO  200 

PLOTTED  OUTPUT  **»• 

300  IF  (NLAST  <EQ<  0)  GO  TO  330 
NUM  - JPLOT 
DO  320  NPLOT  « WNLAST 
JPLOT  - 0 
DO  310  J « UNUM 

IF(  (YPLOTCNPLOT*  J)  <LT<yMIN)  <OR<<YPLOT(NPLOT#  J)<GT<YMAX)  ) 
1 GO  TO  310 
JPLOT  « JPLOT  ♦ I 
DUMMY T< JPLOT)  • TPLOT(J) 

DUMMYY<  JPLOT)  - YPLOT<  NPLOT*  J ) 

310  CONTINUE 

IF  <JPLOT  <E0<  0)  GO  TO  320 
GO  TO  (311*312*313)*  NPLOT 

311  CALL  GRAPHSCIBUF*  512*4*  JPL0T*NT1CT*NT1CY*  1MAX*YMAX* 

1 TM I N*  YM I N*  1 TT*  1 TY  1 * 2 1 * 30*  DIMMY  T*  DUMMYY * DEL  T*  DEL  Y* 

2 HEADER) 

GO  TO  320 

312  CALL  GRAPHS!  I BUF*  512*4*  JPL0T*NT1CT«NT1CY*  1MAX*YMAX* 

1 TMIN*  YMIN*  I TT*  1 TY2*  21*  33*  DUMMY T*  DUMMYY*  DELT*  DELY* 

2 HEADER) 

GO  TO  320 

313  CALL  GRAPHS(IBUF*512*4*JPL0T*NTICT*NTICY*1MAX*YMAX* 

1 TMIN*  YMIN*  I TT*  I TY3*  21*  32*  DUMMYT*  DUMMYY*  DELT*  DELY* 

2 HEADER) 

320  CONTINUE 

330  JPLOT  ■ 0 
TMIN  • TMAX 
TMAX  • TMAX  ♦ 10<0 
200  CONTINUE 
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IF  (LPLOT.EQ.O)  GO  TO  /»00 

JPLOT  - 0 

NPMAX  - NPMAX  - I 

DO  350  J -IfNPMAX 

IF  (PKPK(J)  .LE.  0.0)  GO  TO  350 

PMXLG  ■ ALOGIOCPKPKC J) ) 

IF(CPMXLG.LT.-3.0).0R.CPMXLG.GT.0.0))  GO  TO  350 

JPLOT  - JPLOT  ♦ I 

DUMMY T(  JPLO  T)  = TWEANCJ) 

DUMMYY(  JPLOT)  .=  PMXLG 
350  CONTINUE 

CALL  GRAPHSdBUF#  5 1 4*  JPLOT.  N TI  CTA.  3 1.  IMAX4.  0>  0.  0. 0.  > 3. 0. 

I ITT.  I TY  4.  2 1.39.  DUMMY  T.  DUMMY  Y.  DELTA#  I.  0.  HEADER) 

C 

IF  (LPLOT  .EO.  1)  CALL  PLOT(  0.  0. 999  ) 

C 

400  RETURN 
END 


SUBROUTINE  BNDMOC(KST.MBC) 

♦ • THIS  SUBROUTINE  IS  CORRECT  FOR  TWO  PHASE  FLOW  - THE 
PARTICLE  FLOW  IS  COMPUTED  AND  D(  LN(  AREA)  ) / DX- 0«  0** 

COMMON/FI XPR/MTOTA(  5).6M1.GM  1.  GM  1 2.  GH  1 2G.  62.  GGM  I.  DGK.  DGKNL 
COMMON/ TIMTRN/DT.  DT22.  OXA(  5). XI  SW(  5).  1 DDA(  5).  ACHB(  5).  ASMB(  5)  . 

1 ASMC(5) 

COMMON/ SPCTRN/  CAPXC  200. 5).XI ( 200.  5). SMX( 200.  5). 

I RW2(  200.  5).  DLNA(200.  5) 

COMMON/COMFIX/  HAF<  200.  5).  SMDG(  200.  5).  SMDP(  200.  5). XI  FC.HAFC.  91D6C 
1 .REACTN.  SMDPC 

COMMON/ VARG/R(  200.  5).RP(  200.  5).  U(  200.  5).  UP(  200.  5).  S(  200.  5) 
l.P(200.  5).  SSP(200.  5) 

COMMON/ VARUPD/  RUD(  2.  5)  « UUD(  2.  5)  . SUD(  2.  5)  . PUD<  2.  5)  . SSPUDC  2.  5)  . 

1 RPUD(2.  5).  UPUD<2.  5) 

200  FORMAT!/.*  ERROR  IN  BNEMOC  *.I4.4EI4.8) 


*** STREAMLINED  ( IAUG72)  VERSION  OF  ENCMOC*** 
**•  MBC  - -I  LEFT-HAND  BOUNDARY  **♦ 

*•*  MBC  - I RIGHT-HAND  BOUNDARY  *♦* 


CMB«ACMB(  I) 
SMB«ASMB(  I) 
RMBC  - NBC 
DX-OXAC  I) 

IF  (MBC  .EQ. 
MI  - 1 
M2  - 2 
M3  - 3 
MM  ■ I 
GO  TO  8 


1)  GO  TO  5 
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1 


5 MTOT  ■ MTOTA<  1 ) 


Ml 

■ 

MTOT 

M2 

■ 

MTOT-  1 

M3 

■ 

MTOT- 2 

MM 

■ 

2 

8 Rl- 

R(M1«  1) 

51- S<M1#  1) 

Pl-P(Mlf  1) 

P80LD-P1 

RPl  ■ RP(M1»  1 ) 

RP2  - RPl 

GMRF-GAM«>SMDG(M  1«  ir*RW2F 

Hl-Pl/Rl 

A1>SSP(M1«  1) 

HAFF-HAF(Ml.  1) 

SINC1-GMRF*{HAFF-H1>/P1 

52- S14-S1NC1*DT 
CAPU2  - RMBC«A1/CMB 
DXO  - RM  BC*  DT*  C AP  U2 
DXNO-DXO/DX 
UG2*U(M2*  1) 

UG3-U(M3«  1) 

RG2>R<M2*  1) 

RG3>R(M3«  1) 

PG2-P(M2«  1) 

PG3*P(M3*  1> 

UPG2  ■ UP(M2«  1) 

UPG3  « UP(M3#  1) 

RPG2  > RP(M2« 1) 

RPG3  ■ RP(M3«  1) 

OUPDX  ■ -RHBC«UPG2/DX 
ADC  - DUPDX/CMB 
GPA2«GM1«P1/A1 
C22«GMRF*HAFF 

C31  ■ RW2F*SMDP<M1«  1)  - RP1*ADC 
RP2  ■ RPl  ♦ C31*DT 
NTH*  1 

10  CALL  M0CINT(0«0*UG2«UG3#0XN0#U0) 

CALL  M0C1NT(P1  * PG2«  PG3«  OXNO«  PO) 

CALL  M0C1NT(R1  » RG2«  RG3«  DXNO*  R0> 

CALL  MOCINTC  0«0«  UP62#  UPG3«  DXNO*  UPO) 

CALL  H0C1NT(RP1*RPG2*RPG3«DXN0*RP0) 

IF  (MBC  *£0.  •!)  SMXO  » DXO*CMB  ♦ SMB 
IF  (MBC  •EQ*  1)  SMXO  - (1*0  - DXO>*OIB  ♦ SMB 
CALL  COMBNT(SMXO«  1«KST«HAF0«  SMDGO*  SMDPO) 
AO-SORTCPO/nO) 

CAPUO  * (UO  ♦ HMBC*AO)/CMB 
G PAAV  £*<  GP  A24- G AM*  PO  / AO  ) / 2 • 00 
DMUP  - UO  - UPO 
SMU  - SMDGO*UO 
RUUP  • ABS(RO«UHUP) 

DGKVAR  ■ DGK*(1«0  ♦ DGKNL*RUUP**0« 66666667 ) 
DKRUUP  ■ DGKVAR*RPO*UMUP 
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noon 


C2AVE  - (C22  - RMBC«GAM*AO*(  CKRUUP  ♦ RW2F«SMU)  * 

1 GQM1*(RW2F*<SMDG0*HAFF/GM1  ♦ <SMU*UO  ♦ 3*IDP0*  UPO*  UPO ) /2.  0> 

2 ♦ DKRUUP*UMUP)  )/2.0 

P2  - PO  ♦ RMBC*GPAAVE*U0^C2AVE*DT 

ERR  ■ <P2  - P20LD)/P20LD 

IF(  ABS(  ERR)  •LT*  UOE-07)  GO  TO  15 

IF(NTH.GT*20>  GO  TO  14 

P20LD-P2 

NTH-NTO^  1 

P6«P2**GM12G  

A2-PG«E)(P(  S2/G2) 

S2»S1>DT*(  SINC1^GMRF*<HAFF- A2*A2)/P2)/2.00 
A2-PG*EXP(  S2/G2) 

6PA2-GAM4P2/A2 

RP2  ■ RPl  ♦ DT*<C31  ♦ RW2F*SMDP0  - RP2*ADC)/2.0 

CAPU2  - RHBCOA2/CMB 

DXO  > RH  BC*  DT*  ( C AP  U2^  C AP  UO  > / 2 • 00 

OXNO-DXO/DX 

GO  TO  10 

14  WR1TE(  6*200)  NTH*P2*P20LD 

15  CONTINUE 
PUD(MM*  1)>P2 
SUD<MM*  D-S2 

RNEW«EXP(  (AL06(P2)-S2)/GM4) 

RUD(MM«  D-RNEW 
SSPUD(MM*  1)-SQRT(  P2/RNEW) 

UUD(MM* 1)>0«00 
RPU0<MM*1)  - RP2 
UPUEKMM*!)  > 0*0 
RETURN 
END 


SUBROUTINE  NOZMOC(KST) 

**  THIS  SUBROUTINE  IS  CORRECT  FOR  TWO  PHASE  FLOW  - THE 
PARTICLE  FLOW  IS  COMPUTED  AND  D(  LN(  AREA)  ) /OX*  0*  0«* 

COMMON/FI XPR/M TO TA<  5) * GAM*  GM 1 * OM 1 2*  GM 1 2G*  G2*  GGM I * DGK*  DGKNL 
COMMON/  TIMTRN/  DT*  DT22*  DXA(  5)  * XI  SW(  5)  * I DDA(  5)  * ACMB(  5)  « ASMBC  5)  * 

1 ASMC(5) 

COMMON/ SPCTRN/  CAPX( 200*  5)*  XI ( 200*  5) * SMX( 200*  5) * 

I RW2(200*  5)*CLNA(200*  5) 

COMMON/COMFIX/  H AFC  200*  5) * SMOG ( 200*  5)  * SMDP(  200*  5)  * XI  FC*  HAFC*  34DGC 
I *REACTN*SMDPC 

COMMON/ VARG/RC  200*  5)*  RPC  200*  5)*  UC  200*  5)*  UPC  200*  5)*  SC  200*  5) 

I*  PC  200*  5)  * SSPC  200*  5) 

COMMON/  VARUPD/  RUDC  2*  5)  * UUDC  2*  5)  « SUDC  2*  5)  * PUDC  2*  5)  * SSPUDC  2*  5)  * 

1 RPUDC  2*  5)  * UPUDC  2*  5) 

COMMON/NOZAOM/  UBAR*  PBAR*  ADM 
200  FORMATC/**  ERROR  IN  NOZMOC  **I4*4E14>8) 

C 
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CMB  B ACMB(  1) 

SMB  - ASMB(  1) 

OX  - DXA( 1 ) 

MTOT  - MTOTA<  1) 

RO  ■ H(MTOT»  1) 

PO  ■ P(MTOT»  1) 

PIOLD  • PO 
C 

U1  ■ UCMTOT#  1 ) 

RPl  - RP(MTOT»  1) 

UPl  « UP<MTOT#  1) 

At  - SSP<MTOT#l> 

SMDGl  - SMDGCMTOT*  1) 

SMDPl  ■ SMDP(MTOT»l) 

SL0PE2  ■ Ul/CMB 
SLOPES  ■ (U1  ♦ AD/CMB 
SL0PE4  - UPl /CMB 
C 

Mim  - MTOT  - I 
MTM2  - MTOT  - 2 
UG2  - U(MTM 1*  1) 

UG3  • U<MTM2«  1 ) 

UPG2  « UP<MTM1,  1) 

UPG3  ■ UP(MTM2*  1 ) 

RG2  » R(M1M1»  1) 

RG3  • R(M1M2*  1) 

RPG2  ■>  RP<MTM|«  1) 

RPG3  ■ RP(M1M2«  1) 

PG2  - P(M1M  1*  1) 

PG3  ■ P<MTM2*  1) 

DUPDX  ■ (UPl  - UPG2)/DX 
C 

RW2F  - RVI2(MT0T*1> 

GMRFl  ■ GAM  * SMDG(MTOT#l)  * RW2F 

HI  - PO/RO 

HAFF  ■ HAF(MTOT#l) 

LMUP  ■ Ul  - UPl 
RUUP  - ABS(RO*UMUP> 

DGKUAR  > DGK«(1.0  ♦ D6KNL*RUUP**0« 66666667 ) 

SMU  - SM0G1*U1 

EKRUUP  ■ DGKVAR*RP1«UMUP 

C2PART  ■ RW2F*(  SMDGl  *HAFF/GM  1 ♦ (SMU*U1  ♦ SMDPl*  UP  I*  UPl ) /2.  0) 
1 ♦ CKRUUP*U1UP 

C21  - (QGM1*C2PART  > QMRF1*H1)/P0 
C31  • -GAM*A1*(DKRUUP  ♦ RW2F*SMU>  ♦ GGM1*C2PART 
IF  (SMDPC  .LE.  0«0>  GO  TO  9 
CU41  - DGKV;AR*(J1UP  • KW2F*SMDP1*UP1/RP1 
CRAl  • RPl* DUPDX/ CMB  - RW2F* SMDPl 
9 QPAl  - GAM  * PO/Al 
C 
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NTH  - I 

10  DX2  » SL0PE2  * DT 
0X3  - SLOPES  * DT 
DX4  - SL0PE4*DT 
DXN2  > DX2/DX 
DXN3  - DX3/DX 
0XN4  - 0X4/ OX 

CALL  MOCINT(  Ul«  UG2«  UG3#  DXN2#  U2) 

CALL  MOCINTC  UPl*  UPG2«  UPG3«  DXN2#  UP2) 

CALL  MOCINT(PO«PG2*PG3*OXN2«P2> 

CALL  M0CINT(R0>RG2«RG3/DXN2«R2) 

CALL  MOClNTf  RPl*  RPG2«  RP63*  DXN2«  RP2) 

CALL  M0CINT(U1*UG2*UG3«  DXN3*U3> 

CALL  M0CINT(UP1«UPG2«UPG3«DXN3<  UP3) 

CALL  M0C1NT(P0«PG2<PG3*DXN3«P3> 

CALL  M0CINT(R0#RG2«RG3»DXN3*R3> 

CALL  M0C1NT(RP1«RPG2#RPG3«DXN3«RP3> 

CALL  M0CINT(U1*UG2*UG3«DXN4«U4> 

CALL  M0CINT<  UPU  UPG2«  UP63#  DXN4*  UP4) 

CALL  MOCINTC  RP1«  RPG2«  RPG3<  DXN4«  RP4) 

SMX2  > (1.0  - DX2)*CMB  ♦ SMB 
SMX3  - (1.0  - 0X3>*CMB  ♦ SMB 
SHX4  ■ (1.0  - DX4>*CMB  ♦ SMB 
CALL  COMBNT(  SMX2«KST«KST«HAF2*  SMDG2«  SMDP2) 

CALL  COMBNT(  SMX3>KST#KST«HAF3«  SMDG3*  SMDP3) 

CALL  COMBNT(  SMX4«KST#KST«HAF4«  SMDG4«  SMDP4> 

H2  ■ P2/R2 
UMUP  ■ U2  - UP2 
RUUP  • ABS(R2*UMUP) 

DGKVAR  ■ D6K*(1.0  * DGKNL*RUUP**0. 66666667 ) 

SMU  - SMDG24U2 

CKBUUP  ■ DGK VAR* RP2* UMUP 

C22  • GGM1*(RW2F*(  SMDG2*(HAFF-H2)/GM1  ♦ 

1 (SHU*U2  ♦ SMDP2*UP2*UP2)/2.0>  ♦ OK  RUUP*  UMUP) /P2 

A3  - SQRT(P3/R3> 

UMUP  « U3  - UP3 
RUUP  - ABS(R3*UMUP> 

DGKVAR  > OGK*(1.0  * DGKNL*RUUP**0. 66666667) 

SMU  - SM0G3*U3 

EKRUUP  ■ DGKVAR* RP3* UMUP 

C33  • -6AM*A3*(  DKRUUP  * RW2F*SMU)  ♦ 

1 GGM1*(RW2F*(SMDG3*HAFF/GM1  ♦ (SMl»U3  * 

2 SMDP3*UP3*UP3)/2.0)  * OKRUUP*UMUP) 

QPAAVE  - (GPAl  ♦ GAM*P3/A3)/2.00 

C2AVE  - (C21  * C22)/2.0 
C3AVE  - (C31  ♦ C33)/8.0 
IF  (SMDPC  .LE.  0.0)  GO  TO  12 

CU4AVE  ■ (CU41  ♦ 0GKVAR*(U4*UP4)  - RW2F* SMDP4* UP4/HP4) /2. 0 
CR4AVE  - (CR41  ♦ RP4* DUPDX/CMB  > RW2F* SMDP4) /2. 0 
GO  TO  13 
18  CU4AVE  - 0.0 
CR4AVE  >0.0 


c 

13  S2  - AL0G<P2>  - GAM*AL0G(H2> 

SI  - S2  ♦ C2AVE*DT 

PNUM  ■ P3  ♦ GPAAVE  • ( U3  - UBAP  ♦ ADM«PBAR)  ♦ C3AVE*DT 
PI  - PNUM/(1.0  ♦ GPAAVE*AIM) 

U1  ■ UBAB  ♦ AEM*< Pl-PBAR) 

R1  - EXP<(AL0G(P1)  - SD/GAM) 

At  ■ SQRT(P1/R1) 

UPl  ■ UPA  ♦ CUAAVE*DT 
RPl  - RPA  - CR4AVE*DT 
C 

ERR  ■ f.Pl  - P10LD)/P10LD 
IF  (ABS(ERR)  .LT*  l.OE-07)  GO  TO  15 
IF  (NTH  *GT«  20)  GO  TO  14 
PIOLD  - PI 
NTH  - NTH  ♦ 1 
C 

HI  - Pl/Rl 
UMUP  ■ U1  - UPl 
RUUP  ■ ABS(R1*UMUP) 

DGKVAR  ■ DGK4(1.0  ♦ DGKNL*RUUP«*0* 66666667) 

SMU  ■ SMDG1*U1 

DKRUUP  ■ DGKVAR* RPl* UMUP 

C2PART  - RW2F*(  SMDG1*HAFF/QH1  * (SMU»U1  * SHDPl*  UPl*  UP  1 > /2*  0) 
1 ♦ DKRUUP*UMUP 

C21  « (GGM1*C2PART  - GKRF1*H1)/P1 
C31  - -GAM*A1*< DKRUUP  ♦ RW2F*SMU>  ♦ QGM1*C2PART 
GPAl  ■ GAM  * Pl/Al 
SLP2I  - Ul/CHB 
SLP22  ■ U2/CMB 

SL0PE2  - (SLP2I  ♦ SLP22)/2*0 
SLP31  - <U1  ♦ AD/CMB 
SLP33  > (U3  ♦ A3)/CHB 
SL0PE3  ■ (SLP31  ♦ SLP33)/2.0 
SLP41  • UP1/016 
SLP44  ■ UP4/(»IB 
SL0PC4  ■ (SLP41  ♦ SLP44)/2*0 
GO  TO  10 

14  VR1TE(6«200>  NTH*  PI*  PIOLD 

15  CONTINUE 
C 

PUD(2*1>  ■ PI 
SUD(2*1>  • SI 
RUD(2*1)  • Rl 
UUD<2*  1)  " U1 
SSPUD(2*1>  - At 
RPUD(2*1>  ■ RPl 
UPUD(2*1>  ■ UPl 
RETUfW 
END 
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SUBROUTINE  TAYLOR(KS) 

COMMON/ VARG/R<  200«  5>*RP<200«  5)«  U(  200«  5)«UP(  200»  5>«  S(  200*  S> 
UP(200«  5)«SSP(200«  5) 

COMMON/FI XPR/M  TOTA( 5) « QAM#  GM 1#  GM 1 2#  GM 1 2Q#  G2#  GGM 1 # DGK#  DGKNL 
COMMON/ COMF1  X/  HAF(  200#  5)  # SMDG<  200#  5>#  SMDPC  200#  5>#XI  FC#HAFC#  aiDG«. 
1 #REACTN#SMDPC 

COMMON/ nMTRN/DT#  DT22#  DXA(  5)#  XI  SW(  5>#1  DDA(  5)#  ACMBC  5>#  ASMBC  5># 

1 ASHC(5) 

COMMON/ SPCTRN/  CAPX(200«  5>#X1(200#  S)#  91X(200#  5># 

1 RV2(200#5)#DLNA(200#  5) 


COMMON/ODMG/  SMDDG(200#S> 

C **  R IS  RHO(GAS)  ** 

C **  RP  IS  RHO( PARTICLES)  ** 

C •*  U IS  VELOCITYCOAS)  ** 

C **  UP  IS  VELOCITYC  PARTICLES)  ** 

C S IS  EMTROPY(GAS)  ** 

C ***  CORRECTIONS  HAVE  BEEN  HADE  FOR  NEW  PARTICLE  MOMENTUM  EQUATION* 
C ***  AS  OF  LEVINES  REPORT  ••• 

this  SUBROUTINE  VALID  FOR  GAS  AND  PARTICLE  FLOWS  ******* 

(>**•**  includes  nonlinear  DRAG  LAV  ****** 


MF>MTOTA(KS)>  1 
DK-DKACKS) 

TVOXaB#00*DK 

DX2-DX*0X 

CMD>ACMB<KS) 

RI-R(  1#KS) 

RPl  > RPC  1#KS) 

Ul-UC  1#KS) 

UPl  - UP(1#KS) 

Sl-SC  1«KS> 

Pl-P(  I#KS) 

HI-Pl/Rl 
RV21-RV2(  1#KS) 

CLNAl-CLNAC  1#KS) 

SMDG1«SMDG(  I#KS) 

94DP1  - SMDP(1#KS) 

HAF1*HAF(  1#KS) 

RSI  - 0*0 
RS8  - 0*0 
R53  ■ 0*0 
RST  ■ 0*0 

R11*SMDG1*RV21>R1*U1*0LNA1 
R81  - SMDP1*RV21  - RP1*UPI*CLNA1 
UMUPl  ■ U1  • UPl 
RUUPl  - ABS(RI*UHUP1) 

DGKVRl  - DGK*(1.0  ♦ DGKNL*RUUP  1**0*66666667) 

SMU1*9MD01*U1 

SMUPl  ■ SM0P1*UP1 

EKRUUP  - DOKVRl* RPl* UMUPl 

R31*-<DKRUUP  ♦ RV81*SHU1)/R1 

R41  ■ OGMl  * (RV21*(SMDai«>(HAFl-Hl)/GHl  * <9fUl*Ul 
1 ♦ SMUPl*UPl)/8*00)  * WRUUP* UMUPl) /PI 

IF  (SMOPC  *0T*  0*0)  R51  - (EKRUUP  • RV21*SMUP1 ) /RPl 
R8*R(8#KS> 

RP8  ■ RP(8«KS) 
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u o 


U2«U(  2«KS> 

UP2  - UP<2.KS> 

f S2«S<2«KS) 

P2-P<a*KS) 

H2-P2/R2 
RW22>RW2(2«KS) 

DLNA2>0LNA(  2«KS> 

SHDG2-SMDG(2«KS> 

SMDP2  ■ SMDP(2«KS> 

HAF2taHAF(2*KS> 

R 1 2>  SMDG 2«  RW22-  R2*  UB*  DLNAB 
R22  - SMDP2*RW22  - RP2*UP2*  DLNA2 
UHUP2  - U2  > UP2 
RUUP2  ■ ABS(R2*UMUP2> 

DGKVR2  - DGK*(1.0  ♦ DGKNL*RUUP2**0* 66666667) 
SHU2«SMDG2*U2 
SMUP2  - SMDP2*UP2 
OKRUUP  - DGKVR2*RP2*UHUP2 
R32--(DKRUUP  ♦ RW22* SMU2) /R2 
R42-GGM 1*  ( RW22*  ( SMDG2*  C HAF2-H2)  /GM  l-f  ( SM U2* U2 
1 ♦SHUP2*UP2>/2*00)4-DKRUUP*UMUP2>/P2 

IF  (SMDPC  .GT*  0*0)  R52  > ( DKRUUP  - RW22* SMUP2) /RP2 

**  THESE  ARE  TEMPORARY  ASSIGNMENTS  ONLY  ** 
HAFD2«0*00 

DO  100  M>2*MF 
SM  DDG2>  SM  DDQ(  M * K S) 

SMDDP2  • SMDPC* SMDDG2 
CU2  > U2/CMB 
CUP2  * UP2/CMB 
ETA2-  l.O/OMB 
MS-M*  1 
R>R(M3«KS> 

RP3  ■ RP(M3#KS> 

U3-U<M3«KS> 

UP3  ■ UP(M3*KS) 

S3>S(M3#KS) 

P3>P(M3«KS) 

H3*P3/R3 
RW23-RW2(M3«KS> 

DLN  A3«  DLN  A<  M 3*  K S > 

SMDG>SMDG(H3«KS) 

SHDP3  • SMDP(M3*KS> 

HAF>HAFCM3«KS> 

R 1 3- SM  D6  3*  RV2  3- R3*  U3*  DLN  A3 
R23  ■ SMDP3*RW23  - RP3*UP3*  DLNA3 
UMUP3  - U3  - UP3 
RUUP3  ■ ABS(R3*UHUP3> 

D0KVR3  - DGK*<1«0*  DGKNL*RUUP3**0« 66666667) 
SMU3-SMD6>U3 
SMUP3  - SHDP3*UP3 
CKRUUP  ■ DGKVR3«RP3*UHUP3 
R33>-(  DKRUUP  ♦ R«B3*SMU3) /R3 

R43-G(1M1*(RVB3«(  SMDG3*(HAF3-H3)/QM  !♦(  SMU34U3 
1 ♦SMUP3*UP3>/2*00>  ♦ OKRUUP* UMUP3)/P3 
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IF  (SMDPC  -GT.  0»0)  H53  ■ < DKRUUP  - RW83*  SMUP3) /RP3 

RX-(R3-RI>/TWDX 

RPX  - <RP3  - RPD/TWDX 

UX»(U3-U1)/TWDX 

UPX  ■ <UP3  - UPD/TWDX 

SX»<S3-Sl)/TWDX 

PX-<P3-P1)/TWDX 

HX»<PX-H2*RX)/R2 

EGR8- ETA2/ ( GAM*  R2) 

RT- R 1 2- < CU2*  RX*  ETAS*  R2*  UX ) 

RPT  - R22  - <CUP2*RPX  ♦ ETA2*RP2* UPX) 

UT»  R3  2-  ( C U2*  UX*  EG  R2*  PX  ) 

ST»RA2-CU2*SX 

UPT  - R52  - CUP2*UPX 

PT»  P2*  ST*  G AM*H  2*  RT 

HT"(PT-H2*RT>/R2 

CUX  ■ ETA2*UX 

CUPX  ■ ETA2*UPX 

CUT  ■ UT/CMB 

CUPT  ■ UPT/CMB 

RXX* ( R3> 2 • 00* R2* R 1 > / DX 2 

RPXX  ■ (RP3  - 2.00*RP2  *RPI)/DX2 

UXX«  ( U3-  2*  00*  U2*  U 1 ) / DX2 

UPXX  - CUP3  - 2.00*UP2  *UP1)/DX2 

SXX-(S3>2«00*S2*S1)/DX2 

PXX- ( P3- 2 . 00*  P2*  P I ) / DX2 

R1X«(R13-R11)/TWDX 

R2X  - (R23  - R2D/TWDX 

R3X-(  R33- R3D/TWDX 

RAX- ( R43>  R4 1 ) / TWDX 

R5X  ■ (R53  - R5D/TWDX 

RTX- R IX-  ( CUX*  RX*  CU2*  RXX*  ETA2* ( RX*  UX*  R2*  UXX ) ) 

RPTX  ■ R2X  - (CUPX* RPX  * CUP2*RPXX  * ETA2*( RPX*UPX  * RP2* UPXX) ) 
UTX-R3X-(CUX*UX*CU2*  UXX*EGR2*(PXX-PX*RX/R2)  ) 

STX- RAX- ( CUX* SX* C U2* SXX ) 

UPTX  ■ R5X  - <CUPX*UPX  * CUP2*UPXX) 

PTX-PX*  ST*  P2*  STX*  GAM*  < HX*  RT*H  2*  RTX ) 

R 1 T>  RW22*  SM  DOG 2- ( RT*  U2*  R2*  UT ) * DLN A2 

R2T  ■ RW22*SMDDP2  - (RPT*UP2  * RP2*UPT)*CLNA2 

UTMUPT  ■ UT  - UPT 

RTU1UP  - RPT*UMUP2 

RUTMPT  • RP8* UTMUPT 

IF  (SMDPC  *LE«  0*0)  GO  TO  80 

IF  (UHUP2)  50*  80*  60 

50  AUMUPT  - -UTMUPT 
GO  TO  70 

60  AIMUPT  • UTMUPT 

70  VARKT  ■ 0*66666667*DGK*DGKNL*(RT*ABS(  UMUP2)*R2*AUMUPT)/ 

1 (RUUP2**0« 33333333) 

GO  TO  90 

80  VARKT  > 0*0 

90  R3T  ■ -(R32*RT  * DGKUR2*( RTUMUP  * RUTMPT)  * VARKT* RP2*UMUP2 
1 * RW22*(UT*SMDG2  * U2* SMDDG2)  ) /R2 
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R4T-(GGM1*<RW28*<  < SMDDG8*<HAF2-H2)^SMDG2*(HAFD8-HT>  ) /GM  I* 

1 < SMDDG2«U2*U2  ♦ SMDDP2«UP2* UP2) /2>  00 
8 ♦ <SMU2*UT  ♦ SMUP24UPT))  ♦ 

3 DGKVR8*UMUP2*(RTIJMUP  ♦ 2.00*RUTMPT>  ♦ VARKT*RP2*0MUP2) 

4 - R42*PT)/P2 

IF  (SMDPC  *LE*  0*0>  GO  TO  9 1 

R5T  ■ D6KVR2*UTMUPT  ♦ VARKT*UMUP2  - RW224> ( UPT* SMDG2  ♦ UP24>SHDDG2 
1 - SMUP2*(  RPT/RP2)  )/RP2 

9 1 RTT- R I T- < CUT*  RX*  CU8*  RTX*  ETA2*  < UX*  RT* R8*  UTX ) > 

RPTT  - R8T  - (CUPT*RPX  ♦ CUP8*RPTX 

1 ♦ ETA2* < UPX* RPT  ♦ RP2*UPTX)> 

UTT«R3T-<  CUT*UX*CU8*UTX*EGR2*<PTX-PX*RT/R2)  ) 

STT- R4T- < CUT*  SX* CU8*  STX ) 

UPTT  ■ R5T  - <CUPT*UPX  ♦ CU?2*UPTX) 

RFWK  S«  R2*  RT*  DT*  RTT*  DT82 

R(M«KS>-RFMKS 

U(  M#  K S>  • U2*  UT*  DT*  UTT*  DT22 

IF  (SMDPC  .LE*  0»0>  GO  TO  92 

RP(M«KS)  ■ RP2  ♦ RPT*DT  * RPTT*DT22 

UP(M«KS)  « UP2  ♦ UPT*DT  ♦ UPTT*DT22 

GO  TO  9 4 

92  RP(M»KS)  ■ RP2 
UP(M«KS>  - UP2 

94  SFMKS-S2*ST*DT*STT*DT82 
S(M«KS)>SFMKS 

PFMKS»EXP<  SFMKS*6AM*AL06(  RFMKS)  > 

P(M#KS)»PFMKS 

SSP(  M«  K S)  > SQRT(  PFMK  S/  RFMK  S) 

R1-R2 
RPl  - RP2 
U1-U8 
UP I « UP2 

51- S8 
P1-P2 
R8-R3 
RP8  - RP3 
U2-U3 
UP2  > UPS 

52-  S3 
P2-P3 
H2-H3 

SMDG2-SMDG3 
SMDP2  - SMDP3 
HAF2-HAF3 
DLNA2-DLNA3 
RW22-RV23 
UMUP8  - UMUP3 
RUUP2  ■ RUUP3 
06KVR8  - D0KVR3 
SMU8-SMU3 
SMUP2  > SMUP3 
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\1-R18 
RSI  ■ RC8 
R31-R38 
R41-R48 
R51  ■ R58 
R18-R13 
R8fi  ■ R83 
R38-R33 
R48-R43 
RS8  ■ R53 
100  CONTINUE 
RETUfW 
EMD 


SUBROUTINE  NUTfMP<KST«NOPT«NT> 

COMMON/ TIMTRN/ DT«  DT88«  DXA(  5>  « XI  SV<  5)  « 1 DDA(  5>  < ACMBC  5>  « ASMB(  S>  * 

1 ASMC(S> 

COMMON/ SPCTMi/  CAPX( 800«  5>« XI ( 800*  5>*  SMX( 800*  5> * 

1 RV8<  800*  5>  * OLNA<  800*  5> 

COMMON/ VARO/R( 800*  5) * RPC  800*  5>*  U<  800*  5>  * UPC  800*  5) * SC  800*  5> 

1*PC 800*5>*SSPC800*  5) 

COMMON/M SFSLD/  SMXBSC  100>*APL0CC  100>*FSHDGC  100>*  DXSBS*NBS*  APCC  100) 
COMMON/  BRNCON/  DT  AC  3>*NTYC3>*ALFTAC3>*  TYLOCC  SO)  * TO*  Z 1*  Z 8P*  WCON* 
1EX)R0*E0RS* ETF*OHC* BRAY*  JTOT*  JTOTMl*  ARSTR*RHRSTR*Z  IT*  TS 
APLOCC  |)«PC  1*  1) 

IFCKST.OT*!)  00  TO  30 

C KST«1*  HINCE  ONLY  ONE  REGION  INTERPOLATION  NEEDED 

8 ML«8 

DO  80  IBS«8*NBS 
SHXBSI*  SMXBSC  I BS) 

9 IFCSMXBSI*LE*SMXCML*1>)  GO  TO  10 
ML*ML«1 

00  TO  9 
10  ML1«ML*1 

SNX1>SMXCML1*  1> 

Pl-PCHLl*!) 

APLOCCIBSlaCCPCML* 1)-P1)/CSMXCML* 1)*SMX1))*CSHXBS1«SHX1)  ♦ PI 
80  CONTINUE 
GO  TO  71 

C KST*GT*1  MULTIPLE  REGION  INTERPOLATION  NEEDED 

30  ML«8 
KSL-1 

CNBL«ACMBC  1 > 

SNH.«ASMBC  I) 

XKSIMD  ■ CMBL  ♦ SMEL 
DO  70  IBS«8*NBS 
SMXBSI • SMXBSC  I BS> 

38  IFC  SMXBSI  •GT^XXSOID)  GO  TO  SO 

39  IF(SMXBSI*LB*SMXCML*KSL>>  GO  TO  40 
ML«ML« I 

eO  TO  39 
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40  MLl-ML'l 

8HX1-SHX(HL1*KSL> 

PlaP<MLl*KSL> 

APL0CC1BS>«<<P<HL«KSL>*P1>/(SMX(ML*KSL>*SMX1>)«CSHXBS1*SMX1>  ♦ PI 
60  TO  70 
SO  ML>8 

KSL«KSL«>1 

CHBL>ACMB(KSL> 

SHBLaASHBCKSL) 

XKSIMD  ■ CHBL  ♦ SMBL 
GO  TO  38 

70  CONTINUE 

71  IP  (NT  •EQ*  0>  GO  TO  100 
75  IP  (N0PT*EQ*2>  GO  TO  80 

DO  78  IBS  • 1*NBS 

PDEL  ■ APLOCUBS)  “ APC(IBS> 

CALL  L1NTHV(IBS«PDEL> 

78  CONTINUE 
00  TO  100 

80  DO  90  IBS-1*NBS 

CALL  THfMW(IBS«APLOC(lBS>«TFLH«NT> 

90  CONTINUE 
100  CONTINUE 
RETUflN 
END 


SUBROUTINE  1MIWW(  I BS*  PLOC*  TPLH*NT> 

COMMON/ TEN WAV/CT(  101«80>«CNU(  101*80>«  SW<  101#80>«  SVC  101«  80>#  ROR(  80> 
COMMON /MSPSLD/  SMXBSC  100>*APL0C(  100)#FSND0(  100>*  DKSBS*NBS#APC(  100) 
COMMON/ BRNCON/  DYA(  3>*NTYO>#  ALPTAC  3)«  TYLOCC  S0>*  YO*Z  1«Z8P«  WCON* 
IBORO*  E0RS«  ETP«  QHC«  BRAY*  JTOT*  JT01M  !•  ARSTR*  RHRSTR»Z  IT*  TS 
COMMON/  TINTRN/DT*  DT88*  DXA(  5>«XI  SVC  5>*  I DDAC  5)  * ACMBC  S>*  ASHBC  5>* 

1 ASMCCS) 

DIMENSION  SAVECS) 

850  PORMATCaX**  STEP>**I5**  IBS«**I8*4  ITSUB  D*N«C*  IN  IHIMWV  FOR 

1 PL0C**«E14*8**  CTS«*«E14»8**  CAPPa«* E14«8> 

IP  (PLOC  *LT*  10*00>  PLOC  > 10*00 
VSTR»  VCON*PLOC*PLOC*  ETP 
Z8>Z8P*VSTR 
RaRORClBS) 

R0T«R/8*0O 

SOR>SQRT(R01*R0T  ♦ 1*00/DT> 

XI  l•S01l-R0T 
XI8— (SOR»ROT> 

XID»XI8*XI  1 
CNU(l*IBS>«0*00 
DO  80  J«8*JT0T 
Y>TYL0CCJ)4Y0 
XXII^B(P(XID*Y> 

0NUJB*(|*00-EXI  D)/CXI  I•BXI1>-XI8> 
IPCABSCCNUfB*CNUCJ*l*IBS)>*LT*l*0B-07>  00  TO  88 
CNUCJ*IBS>-CNUUB 
80  CONTINUE 


d 
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00  TO  84 

88  CNU(J«1BS>>CNUJB 
JST-«H  1 

Y-TYLOC< JST)»YO 
E3(11^IXP(X1D4Y> 

CNUPX«(  U00-EXID>/(X1  1*CX1D-XI8> 

DO  83  J«JST«JTOT 
CNU<J«1BS>*CNUFX 

83  CONTINUE 

84  CONTINUE 

SV(  1«IBS>-1*00 
CNUJ>0*00 
CTJ«CT<  1«1BS) 

SWJ«1.00 

NF>0 

DO  31  1-1«3 
Nl-NF'*’! 

NF-NF^NTY(I  > 

4LFT>ALFTA(I) 

DO  30  J«N1«NF 
JPl-J^l 

CNUJPI*CNU(  JPUIBS) 

CTJP1-CT<JP1«1BS> 

SV*IP1*<S«J*(  1.00*ALFT*CNUJ>^ALFT*(CNUJP1*CTUP1^CNUU*CTJ>> 
1 /(  l.OO^ALFT^CNUJPl) 

SV<  JPU1BS)>SUJPI 
SVJ>SVUPI 
CTJaCTJPl 
CNUJaCNUJPt 

30  CONTINUE 

31  OOMTINUE 
CNUL-CNUC  JTOT«  I BS> 

SIIL*S«<JT0T«1BS> 

CTS  - CT(JTOT#IBS> 

SAVECn-l.OO 

SAVE<8»0*010*CTS 

35  EETS-EXPCBORS/CTS) 

0H«*<<21  ♦ Z1T*<CTS*TS>)/EETS>  ♦ 28*EETS 
CAPF«-CTS  ♦ CNULPOH^SW. 

CALL  1 TSUB<  CAPF«  CTS*  SAVE*  0*000001*  50) 

KBBhSAVEC  1> 

00  TO  (35*35*35*35*41*40>*KBR 

40  VfUTB<6*8S0>  NT* I BS* PLOC*  CTS* CAPF 

41  EBTS«EXP<BORS/CTS> 

BRAY/ BETS 
ROT  ■ R/a*oo 

0H>*((S1  ♦ S1T*(CTS«TS>>/EETS>  ♦ Z8*EETS 

SV<JTOT*IBS>«OH 

SVJ-SW. 

CNUJaCNUL 

CTJ-CT<JTOT«IBS> 

SV«I«BH 
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00  51  II>1«3 

NI>NF^1 
NF-NF^NTYd  > 

ALFT-M.FTAU  ) 

BCTN-DFAU  >*R0T 
DO  SO  N*N1*NF 
JH1«JT0T  - N ‘ 

SVJM1>SV<JM1«1BS) 

CNUOM  1> CNU(  JM  1 « I BS> 

CTJM1>CT(  JH1#1BS> 

SVJH I- C SVJ* ( 1 • 00- BETN- ALFT*  CN  UJ  > - ALFT* ( SWJ^  S WJM 1 • CTJ- CTJH 1 ) > 
I /C1.00«>BETN^ALFT*CNUkJMl) 

SV(JH1«1BS)-SVJM1 

SVJ-SVJHl 

SWJ>  SWOM 1 

CNUJ-CNUJMl 

CTJ-CTJHl 

50  CONTINUE 

51  CONTINUE 

00  60  J>1«JT0T 

CT( J«1BS>-CNU( J«IBS)*SV< J»1BS)  ♦ SW(J«1BS) 

60  CONTINUE 
R6RUBS>«R 
FSM06<lBS>*flMC*R 
RETURN 
END 


SUBROUTINE  LINTHVC  I B5«  PDEL> 

. COMMON/ TIMWAV/CT(  101«a0)«CNU(  101«20>«SV<  101*20>«SV(  101«  80>«  RGR(  20) 
COMMON/M SFSLO/  SMXBSC  100)#APL0C(  100)«FSMDG(  100>#  DXSBS*NBS«  APC<  100) 
COMMON/BRNCON/  EV AC  3>  #NTY ( 3) « ALFTAC  3>  « 1YL0CC  S0>  * TO*  Z 1*  EBP*  WCON* 
lEORG*  EORS*  ETF*  BMC*  BRAY*  JTOT*  JT01H  1*  ARSTR*  RHRSTR*Z  1 T*  TS 
COMMON/  TIMTRN/  DT*  DT22*  DX AC  S)  * XI  SVC  S>  * I DDAC  S>  * ACHBC  S> * A»BC  S>  * 

1 ASMCCS) 

COMMON/SSVAL/  RBARC  B0>* CTBARC  101* £0>* CTYBARC  101*80)* 

1 Z8RPC80)*ETGHC80)*ERTSC80) 

803  FORMAT  C 8X* * 1 TERATl ON  ON  R FAILED  TO  CONVERGE* • SX* 

1 «ROLD  - **E14«8**  RNEV  - **E14*8> 

ROT  ■ RBARClBS)/8«0 
SOR*SORTCROT*ROT  ♦ 1.00/DT) 

CNUC  1*1BS»0«00 
DO  80  J*8*JT0T 
Y • TYLOCCJ)  ♦ YO 
M«PHA  ■ SOR  * Y 

SINHA  ■ CDCPC  ALPHA)  - EXPC • ALPHA)  >/8*0 
COSHA  ■ CEXPC  ALPHA)  ♦ EXPC -ALPHA)  )/8*0 
CNUJB  • S1NHA/CS0R*C0SHA  ♦ R0T*S1NHA) 
IFCABSCCMUJB-CNUCJ-l*IBS))*LT*l*0E-07)  00  TO  88 
CNUC  J*  IBS)  •CNUJB 
80  CONTINUE 
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GO  TO  24 

22  CNU<J*IBS>  • CNUJB 
JST  • J ♦ I 

Y ■ TYLOC<JST)  ♦ YO 
ALPHA  - SOB  * Y 

SINHA  ■ <EXP<ALPHA>  - EXP< -ALPHA)  ) /2*  0 
COSHA  > (EXP(ALPHA)  ♦ EXP( -ALPHA)  ) /2.  0 
CNUrx  ■ SlNHA/(  S0R4C0SHA  ♦ R0T*S1NHA) 

DO  23  J - JST*JTOT 
CNU<J«1BS)  - CNUFX 

23  CONTINUE 

24  CONTINUE 

NSW  • 0 

SW(UIBS)  ■ 0*0 
CNUJ«0*00 

RDEL  > RGR(IBS)  - RBAR(  1 BS) 

25  BOLD  ■ RDEL 

CTDDL  - CT(1«IBS)  - CTBAR<1*1BS) 

CHJ  ■ CTDEL  - RDEL4CTYBAR(  1*IBS)«DT 

SWJ  - 0*0 

NF«0 

DO  31  I-l«3 
N1-NP«1 
NP-NF^NTY<I ) 

ALFT*ALFTA( 1 ) 

DO  30  J-N1«NF 
JPl-J»l 

CNUJP1>CNU(  JP1«IBS) 

CTDBL  - CTCJPUIBS)  - CTBARC  JP1«  1 BS) 

CHOPl  ■ CTDEL  - RDEL* CTYBAR<JP1* IBS)* DT 

S V J P 1 • < S W J*  < 1 . 0 0- AL  F T*  CN  UJ  ) ♦ AL  F T*  ( CN  UJ  P 1 * CH  JP 1 * CN  UJ*  CH J > ) 

1 /Cl.OO*ALFT*CNUJPl) 

SV(  JPU  IBS) -SWOP  1 
SVJ-SWJPl 
CHJaCHJPl 
CNUJ-CNUJPl 

30  CONTINUE 

31  CONTINUE 

CNUL*CNU<  JTOT«  I BS) 

SWL«SW(JTOT«IBS) 

SVL  ■ (28RP<IBS)*PDEL  - ETOH(IBS)*SHL)/(  1*0  ♦ CNUL*  ETOHC I BS)  ) 
SV<JTOT#IBS>  - SVL 
CTSIMO.  ■ CNUL*  SVL  ♦ SWL 
RDEL  - CRTS(IBS>*CTSOEL 

IF  (ABS( RDEL- BOLD)  «LT«  I*0E-06)  00  TO  40 
IF  (NSW  .OT*  15)  00  TO  39 
NSW  • NSW  ♦ 1 
GO  TO  85 

39  WRITE  (6«803)  R0LD«  RDEL 

40  CONnNUC 


( 
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SW J-  SWL 
CNUJ-CNUL 

CTDEL  ■ CT(JTOT#IBS>  - CTBARC  JTOT#  I BS) 

CHJ  ■ CTDEL  - RDEL«CTYBAR(JT0T*1BS)*DT 

SVJ  • SVL 

NF-0 

DO  51  II«1«3 
I ■ 4 • 1 1 
Nl-NF-M 
NF«NF*NTY<1  ) 

ALFT«ALFTA(I  > 

BETN-DYA<1  >«ROT 
DO  50  N«NI«NF 
JMI-JTOT  - N 
SWJM1-SV<  JH1«IBS> 

CNUJM  I*  CNU<  JH  t « I BS> 

CTDEL  ■ CT(JH1«IBS)  - CTBAR( JM  1«  1 BS) 

CHJMl  - CTDEL  - RDEL*CTYBAR(  JM  1«  I BS>«DT 

SVJM1*C  SVJ«(  1.00-BETN-ALFT*CNUJ>*ALFT*<  SWJ>  SWJM  1-CHJ-CHJFI 1)  > 
1 /<  l.OO^BETN^ ALFT* CNUJM  1> 

SV(JM1«1BS>«SVJM1 
SVJ-SVJMl 
SVJaSWJMl 
CNUJ-CNUJMl 
CHJ* CHJMl 

50  CONTINUE 

51  CONTINUE 
C 

DO  60  J-UJTOT 

CTDEL  - CNU(J«IBS>*5V(J«1BS)  ♦ SW(J»1BS> 

CT(J«IBS>  > CTBAR(J«1BS>  ♦ CTDEl. 

60  CONTINUE 

R - RBAR(IBS)  ♦ RDEL 

RGR(IBS)«R 

FSMDa(IBS)-QMC*R 

RETURN 

END 


SUBROUTINE  COMBNT(XND#KS>KST«HAFL«  SMDGL*  SMDPL) 

COMMON/  T1 MTRN/  DT*  DTSR«  DXA(  5)  * XI  SW(  5) < 1 DDA(  5> * ACMBC  5)  * ASMB(  5) « 

1 ASMC<5> 

COMMON/NOE DAT/ EL  STR«  RCHSTR*  UT 

COMMON/ CONFIX/  HAF(  200«  5>«  SMDG(BOO«  5>«  SMDPC  800«  5>«X1FC«HAFC*  SMDGC 
1 # REACTN#  SMDPC 

COMMON/M SFSLD/  SMXBS(  100>«APL0C(  100>«F9<DG(  100>«  OXSBS«NBS«  APC(  100) 

400  FORMAT(/#«  COMBNT  ERROR  - 3 POSSIBLE  CASE  FAILURE  • — 

l*KS»*0l2»*  KST*4«1B«*  (XST«XSMND*XMEND«XMBND«XJ1«XJ8>4*6E13.7> 

401  F0RMAT(/#4  IN  COMBNT  * A ONE  POINT  INTERPOLATION  HAS  BEEN  FORC 

lED R.E.I  •*«/#  5X«*KSa*«I  8«*  KST^*«18»4 

WND«XMEND«XMBND>**81  5«  8EI4*8« /«  1 SX*  6E14«8  > 

408  FORMATC/««  IN  COMBNT  - A ONE  POINT  INTERPOLATION  HAS  BEEN  FORC 

lED  ---  L*E«I**«/«5X«4KS**«I8«*  KST«**I8«* 

flMND«XMlND«XMBND)*#8I  5«8E14*8*/«  15X«6E14«8> 


/ 
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XST-XND*E1.STR 
1F(XST.LE*0.0)  GO  TO  10 
5MDGL*0*00 

00  TO  200 

10  X9t-ELSTR  ♦ XST 
XSMNI>XSM/DXSBS 
J1>1  ♦ XSHND 
XJl-C Jl-l) 

XJ2-J1 
J2»Jl  ♦ 1 

IF<KST<6T<D  GO  TO  20 
15  FSHD01*F91DG(  Jl) 

SMDGL«(FSHDC( J2>-FSM061  >*<XSMND-XJ1>  ♦ FSHDOl 
GO  TO  200 
20  CMB-ACMB(KS> 

SMBbASHB(KS) 

SMXE  ■ CMB  ♦ SMB 
SMXB  ■ 9IB 

XHCNO-(SMXE*a.STR  ♦ ELSTRl/DXSBS 
XMBND  ■ <SHXB*E1.STR  ♦ ELSTRl/OKSBS 

1 FCXJ2<LT<XMEND<AND<XJ  l.QE<XMEND>  GO  TO  1 5 
IF(XJ2<6T<XMD4D>  GO  TO  30 
1F(XJ1<LT<XMBND>  GO  TO  40 

WRl  TEC  6«  400)  KS«KST«XST«XSMND*XMEND*XMEND»XJ1*XJ2 
STOP 

30  JO  - J1  ♦ 1 
XJO  ■ JO  - 1 

IF  CXJO  <LT<  XMBND)  GO  TO  35 
F94D61  - FSMDGCJl) 

SMDGL  • CFSMDGl  > FSMDGCJO))  * CXSHND  - XJl)  ♦ FSHDGl 
GO  TO  200 
35  SMDGL*F9(DG< Jl) 

WRJTEC6#401)  KS»KST#J1«J0>XJDXJ0»XST«XSHND«XMEND«XMBND 
GO  TO  200 
40  J3  - J2  ♦ 1 

IF  CJ3  <0T<  NBS)  GO  TO  45 
XJ3  - J2 

IF  CXJ3  <6T<  XMEND)  GO  TO  45 
FSMD02  ■ FSMDGCJ2) 

SMDGL  ■ <FSMD0<J3>-FSMDGB>*<XSHND-XJ2>  ♦ FSMDG2 
GO  TO  200 

45  SMOiL  « FWDGCJB) 

WRl  TEC6«402)  KSjNST*  J2«  J3«Xja«XJ3«XST«X9fND«XMEND«XMfiN0 
200  HAFL-HAFC 

SMDFL  • SMDPC* SMDGL 

RETURN 

END 


I 
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SUBROUTINE  M0C1NT(Y  1«  Ye*Y3*  DXN«  YO) 
Cl  ■ YI  - YB 
C3  - Y3  - Y2 
A - 0*S00  * (Cl  ♦ C3> 

B > -0*500  * (3*00«C1  ♦ C3> 
YOaA«DXN*DKN«B*DXN>Y  1 
RETURN 
END 


SUBROUTINE  SHDEH.(  Ul«  U2*  U3«  U4»  SHDET«NYES> 
NYES-O 

V31  ■ U3  - B*00*ue  ♦ U1 
V41  - U4  - S*00*U3  ♦ ue 

u2s«ue*ue 

U38-U34U3 

U48>U4«U4 

uie  - ui*ui 

V32  • U32  - 2*004 use  ♦ U12 
V42  > U42  • 2*00*U32  ♦ U22 
U33  - U324U3 
U23  • U224U2 

V33  • U33  - 2*00*U23  ♦ U12*U1 
V43  > U424U4  - 2*00«U33  ♦ U23 
A > V314V42  - V324V41 
B • V334V41  - V3I4V43 
C > V324V43  - V334V42 
DSHDET  > B46  • 3*00*A«C 
IF  (DSHDET  *LT*  0*000005)  GO  TO  20 
IF  (ABS(V31>  *LT*  0*lE-06>  60  TO  20 
IF  (ABS(V41>  *LT*  0*lE-06)  GO  TO  20 
SD  - SORT(  DSHDET) 

URl  > (-B  ♦ SD)/(3*00*A) 

UR2  > (-B  • SD)/(3*00*A) 


IF 

(UI  *GT* 

U4) 

GO  TO 

15 

IF 

(URl  *GT* 

Ul 

*AND* 

URl 

*LT* 

U4> 

NYES 

• 

1 

IF 

(UR2  *GT* 

Ul 

*AND* 

UR2 

*LT* 

U4) 

NYES 

■ 

I 

GO 

TO  20 

15  CONTINUE 

IF 

(URl  *LT* 

Ul 

*AND* 

URl 

*6T* 

U4) 

NYES 

• 

1 

IF 

(UR2  *LT* 

UI 

*AND* 

UR2 

*GT* 

U4) 

NYES 

■ 

1 

20  SHDET  ■ DSHDET 


RETURN 

IND 
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SUBROUTINE  I TSUB(  FOFY*  Y«  SAVE*  C0NV*NT1MES> 

DIMENSION  SAVE(8) 

Nl>SAVEO)  ♦ .1 
F0FXCX-SAVE(8> 

FOFX-rOFY 

X-Y 

1F(ABS(F0FX)-C0NV.LE*0«)  00  TO  110 
1TIME*SAVE(  1)  ♦ .1 
60  TO  <10*30*S0*70)«1T1ME 
10  Nl-1 
1T1ME>2 
FOFXCK-FOFX 
SAVE(8)«F0FXCK 
IF<F0FX*LT*0*>  GO  TO  SO 
30  IF(F0PX*LT*0*)  60  TO  70 

IF(FOFXCK*GE*FOFX)  GO  TO  35 
SAVE<8)a-  l.«SAVE(6) 

X>X*8*«SAVEC8> 

60  TO  90 
35  SAVE(4>»X 
SAVE<  S)*FOFX 
X>X-SAVE(2> 

60  TO  90 
50  1T1ME>3 

1F(F0FX*GT*0*>  60  TO  70 
IF(FOFXCK.LE.FOFX)  GO  TO  55 
SAVE<  8>«- 1 •*SAVE( 8> 

X>X«8**SAVE<2> 

GO  TO  90 
55  SAVE<6>>X 
SAVE(7>*F0FX 
X>X4>SAVE(8) 

60  TO  90 
70  ITlME-4 
Nt«SAVE(3> 

lF(FOrX*LT*0*>  60  TO  75 
SAVE(4>*X 
SAVE<5>«rOPX 
60  TO  80 
75  SAVE(6>«X 
SAVE(7>«F0FX 

50  X»  SAVE! 4> - SAVE! 5>4 C < SAVEC 6> - SA VE<  4) ) /<  SAVE! 7 ) - SA VE( 5) > ) 
90  1F<N1*GE*NTIMES>  00  TO  100 
Nl-NUl 
SAVEC3>>N1 
60  TO  180 
100  ITIHEa« 

00  TO  180 
110  lTlHE-5 
SAVE<4)>X 
SAVKS>>FOFX 
SAVC(6>«X 
SAVB(7>«F0FX 

180  SAVB(  1>*FL0AT<IT1NE>^0*1 
Y»X 
RETURN 
END 
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